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AT” Pfantasies for your PC or XT.” 


Want better speed and memory on your - hardware-dependent programs and 
PC or XT without buying an AT? back again without rebooting. All with 
You've got it! Pfaster286’s compatible ROM software. 
Phoenix’s new Pfaster™286 CO-processor 7 And, Pfaster286 does the job unintrusively! 
board turns your PC or XT into a high- ® _ No motherboard to exchange. No wires to 
speed engine 60 percent faster than an “ | solder. No chips to pull. Just plug it into a 
AT. Three times faster than an XT. It even 3 —. | standard card slot, and type the 
supports PCs with third-party hard disks. Ss Le : magic word, ‘“‘PFAST?’ 
But that’s only the beginning. | Le & : If you really didn’t want an AT in the first. 
You can handle spreadsheets and programs OE hee Ak place, just what it could do for you, call or 
you never thought possible. Set up RAM disks in pg be i LIT write: Phoenix Computer Products Corp., 
both 8088 and 80286 memory for linkage editor gt. 320 Norwood Park South, Norwood, MA 
overlays or super-high-speed disk caching. All with SALT ae? 02062; (800) 344-7200. In Massachusetts, 
Pfaster286’s Imb of standard RAM. expandable to TS de 617-762-5030. 
2mb, and dual-mode design. oO, - 
You can develop 8086/ 186/286 software on your XT 7 Programmers’ Pfantasies'™ 
faster. Execute 95 percent of the application packages by 
that run on the AT, excluding those that require fancy I/O 
capabilities your PC or XT hardware just isn’t designed 
to handle. Queue multi-copy, multi-format print jobs for 
spooling. Or, switch to native 8088 mode to handle 


XT and AT are trademarks of International Business Machines Corporation. Pfaster286 and Programmers’ Pfantasies are trademarks of Phoenix Computer Products Corporation 
For the Ferrari aficionado: yes. we know this is a rear engine car. We are showing the addition of a second engine to symbolize how Pfaster can be added to your PC or XT to increase performance. 


Circle no. 91 on reader service card. 





Optotech, Inc. The 54 inch 


Optical Disk Drive 
Is Here! 


_ Optical Disk Drive 5984 _ 





Circle no. 124 on reader service card. 





: a : = ce ne comp ut 


: ys - hae POWER TOOLS is a 
- ae - fears new series of proceares 


: 2 i ing you fash aad aetess to ‘the screen without using 9 BIOS 8 
 @ Access to BIOS and DOS services, including DOS 3.0 and the — 
_ IBMAT. @ Full program control by allo wing you to execute any — 

_ other program from within your Turbo Pascal application. ? Inter- 
rupt service routines written entirely in Turbo Pascal. Assembly — 


a code is not required even 0 service o hardware interrupts like the S 


a keyboard or clock. — 


Using Turbo POWER TOOLS, you a now “fier” the keyboard 


] - - or even DOS, and create your own 


2. The Turbo Pascal PERFORMANCE PACKAGE f is f for fhe serious ) 


* _ Turbo Pascal programmer who wants. quality tools to develop ae - — A 
___ cations. Every system comes with a comprehensive User Reference _—= 


oe applications. : 


Manual, all Source code and useful sample programs. They | require . c : \ Name 


an IBM PC or compatible, utilizing MS-DOS version 2.0 orlate. = a nad 
_ There are no royalties for incorporating PERFORMANCE PACKAGE . 4° 


a functions into your applications. — 


> = ipo PO WER TOOLS and ey ASYNCH sell for $99. 9% each, 
and they may be ordered eee from ae = 

Computing Inc. To. order, oe : oe 

(415) 540- 441. : 


a a fhe Pascal is a trademark of Boren : 
ASYNCH and PERFORMANCE PACKAGE are 


trademarks of Blaise Computing lac. 18M is a registered = 


itademark of internation! Business Machines Corporation. 
é « DOS Sa tragamnats of Microsoft poten : 


=® 2034 BLAKE STREET 
“ —_@ BERKELEY, CA 94704. 





__ {nternational. Turbo POWER TOOLS, Turbo 


APRIL 1986 


Programming p 
in LISP and 
PROLOG 


An Expert at 
Life 


I/O redirection 
for the Shell 


Report on 
Microsoft's 
Macro 
Assembler 4.0 


How to 
navigate the 
DDJ Forum » 


CONTENTS 


Dr. Dobb's journal of 


Software lools 


al Bae 


AI: BRIE—The Boca Raton Inference Engine 
by Robert Jay Brown III 
An exploration of artificial intelligence techniques, using 
LISP, PROLOG, and Expert-2. 

Al: A Cellular Automation in Expert-2 

by Jack Park 

Jack visited our pages two years ago with an expert system 
for predicting the weather. This little game could teach 
even more about AI tools. 

AI: Modeling a System in PROLOG 

by Sheldon D. Sofiky 

PROLOG may be the language of choice for some very 
practical tasks says the author. 

MODULA-2: A 68000 Cross Assembler—Part 1 

by Brian R. Anderson 

The first installment of this Modula-2 source code 
assembler for the 68000 supplies the definition modules 
and data-flow diagrams. The implementation modules will 
follow. 

MATH: A Variable Metric Minimizer 

by Joe Marasco 

The source code listing for Marasco’s arbitrary-function 
minimizer continued from last month. 


























42 


46 


52 











84 






















COLUMNS 


C CHEST: Redirection—The /dev Directory, 
SWITCHAR, and Touch 

by Allen Holub 

Our C expert tackles I/O redirection for his shell program, 
switching the switch character under DOs 3.x, and a bug in 
mk, and adds a nice touch to the make utility. 

16-BIT SOFTWARE TOOLBOX: The Perils of 
Protected Mode 

by Ray Duncan 

With thousands of disks in his customers’ hands, Ray 
learns to his dismay that IBM didn't really mean it about 
interrupt OFFH being available. Also: how to use the 
LaserJet with WordStar, Ray’s opinion of Microsoft's 
Macro Assembler 4.0, 68000 and 8086 tricks, and an MS DOS 
tail routine. 





18 








116 




















PROGRAMMERS" 
SERVICES 


OF INTEREST: New 
products of interest 
to programmers 
ADVERTISER INDEX: 
Where to find 

that ad 





FORUM 


EDITORIAL: Charm 6 
by Michael Swaine 

LETTERS: Parity 8 
by our readers 

CARTOON: Strangeness 8 
by Rand Renfroe 

DDJ ON LINE: What'sup 14 
and how to get it 





























128 






Dr. Dobb’s Journal, April 1986 


















VOLUME 11, ISSUE 4 


Programmingin = 
LISP and PROLOG 


An Expert at Life 


The Perils of 
Protected Mode 


\/O Redirection 
for the Sheil 


About the Cover 
The Turing test is Alan Turing’s 
mythical experiment in which 
the interrogator tries to deter- 
mine whether the respondent is 
human or machine strictly on 
the basis of the respondent's an- 
swers to questions. Paul Am- 
brose, who created the robot 
hands and did the cover photog- 
raphy, relaxed the restriction 
that the interrogator be human. 
The dialogue is Turing’s. 


This Issue 
Last year’s AI issue, which fo- 
cused on PROLOG, was so popular 
that we decided to make it an an- 
nual thing. This year we've wid- 
ened the scope to include LISP 
and Expert-2. The focus is, as al- 
ways, on providing useful tech- 
niques and code. 


Next Issue 
Some of the best programming 
acts play to an audience of one 
because the programmer never 
learned the difference between 
a nifty box of tricks and a useful 
tool that others can understand 
and use. In our user-interface de- 
sign issue we'll talk to Jef Raskin, 
the originator of the Macintosh 
project, about designing soft- 
ware for people. We'll also turn 
Jim Edlin loose on a well-known 
software product; Jim says he’s 
going to use Dan Bricklin’s Demo 
Program to redesign this prod- 
uct’s user interface. 


Its amazing what you 
can reveal when you strip. 


Introducing a shape that’s about to turn on an Simply by plugging the Cauzin Reader into your 


entire industry serial or cassette port and placing it over the strip. 
The Softstrip " data strip. From Cauzin. The reader scans the strip, converts it to com- 
This new technology allows text, graphics, and puter code, and feeds it into any standard communi- 
data to be : - cation interface. 


encoded ona 
strip of paper 


Because strips are so easy to gen- 
erate, most of your favorite magazines 








then easily ew eee See and books will soon be using them in 
: e Cauzin Softstrip System Reader replaces tedious typing by scanning the strip ie ; 
entered into and reading it into your computer addition to long lists of program code. 
your computer using a scanning device called the And you'll 
Cauzin Softstrip " System Reader be able to enter 
Creating a simple, reliable and cost efficient programs with- 
way to distribute and retrieve information. out typing a 
Softstrip data strips, like those you see here, can single line. 
contain anything that can be put on magnetic disks. There is 
Facts. Figures. Software programs. also software for 
Video games. Product demonstrations. you to generate 
Sheet music. a your own strips. -——— dnc 
Letting you Soon everyone will be stripping as data strips appear in 
_ send every- popular magazines, computer books and text books. 
thing from correspondence to business information 
using our new technology. 


Find out how much you can reveal by 
stripping. Just take this ad to your computer dealer 
for a demonstration of the Cauzin Softstrip 


oe << System Reader 
The Cauin Sobinig Srna eler Ripe Or for more information and the name of the 
compatible with the IBM PC, Apple II and Macintosh. dealer nearest you, call Cauzin at 1-800-533-7323. 
Asingle strip can hold up to 5500 bytes of In Connecticut, call 573-0150. 


encoded data. 

It can stand up to wrinkles, scratches, ink 
marks, even coffee stains. 

And it can be entered into your computer with 





; eee : Cauzin Systems, Inc. 
a higher degree of reliability than most magnetic media. 835 South Main St., Waterbury, CT 06706 


Apple® and Macintosh® are registered trademarks of Appl i i 
ret pple Computer Inc., Apple® is a registered trademark of Apple Records Inc. 
Softstrip® and the Softstrip® System Reader are trademarks of Cauzin Systems, Inc., IBM® is a registered made of IBM, Inc. 
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evolved into a popular cerebral exercise for programmers and math majors 
t the game was played on graph paper, but the advent of modern technology 
he computer which plays the game thousands of times faster. Now millions 

enthusiasts are captivated by this devilishly simple, yet marvelously 


Someone once said that there is nothing new under the sun. Wouldnt life be boring 


if that were indeed true? The data strips on the right contain the program described 
The rules of the game are quite simple. Imagine that you have an infinite grid of 


Mt. Park’s improvement on the theme is interesting because of his approach. Instead 
of writing a traditional program for the simulation, he has created an array of intelligent 
cells using an inference engine written in Expert-2, a superset of FORTH. 

Read in the data strips, following the directions that came with your Cauzin reader. 


issue. It’s a prime example of how something, in this case the game of LIFE itself, 
The game of LIFE was invented years ago by John Horton Conway. Over the years, 
that of its neighbors. The grid of cells is represented by a graphic display on your 
computer screen. After setting up an initial configuration of living and dead cells, 
You'll need the Expert-2 programming environment to operate this program. Refer to 


you start the simulation. The patterns will change on the screen as cells live and die. 
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ORAL 


harles_ Dick- 

ens printed on 

the front page 
of his magazine, 
Household Words, a 
public explanation of 
the breakup of his 
marriage. He told his 
proper’ Victorian 
readers that he and 
Catherine Dickens 
were “wonderfully 
unsuited to one another” and that “‘it 
would be better for her to go away 
and live apart.’’ Magazines are differ- 
ent now. Living with someone else is, 
in some ways, no different: Now, as 
then, the bedrock on which lives are 
built is occasionally faulty. Like 
plates of the earth’s crust, cohabi- 
tants sometimes rub each other the 
wrong way until something cracks, 
erupts, falls away. 

Memory-resident utilities under 
MS DOS are also subject to the tecton- 
ics of cohabitation, one moment dis- 
playing a surface of smoothly over- 
lapping plates or proper Victorian 
tilings, the next moment falling apart 
at the fault lines. The DOS terrain 
needs a seismologist, or the DOS 
household needs a marriage counsel- 
or, depending on where in these 
shifting metaphors you come to rest. 

Remember integrated software? 
(There is a connection here, I assure 
you.) Recent trends (evidenced at a 
utility fair in San Francisco spon- 
sored by 800 Software and Computer 
Currents magazine) suggest that users 
soon may be offered “integrated soft- 
ware’ in anew form: bundled mem- 
ory-resident utilities. Traditional in- 
tegrated packages no longer enjoy 
the vogue they once did, in part be- 
cause they forced consumers and de- 
velopers either to accept inadequate 
tools because they were inextricably 
bound to better tools or to reject 
whole packages. 

Small utility programs, as contrast- 
ed with monolithic integrated pack- 
ages, have many virtues: They give 
the user a choice, they provide a 

























chance for smaller 
companies to start 
and succeed, and 
they encourage a 
healthier and more 
competitive market 
with more differen- 
tiable products. 
Memory-resident 
programs put a pre- 
mium once again on 
memory-efficient de- 
sign, that is, skillful programming. 
Bundled memory-resident utilities 
may or may not limit users’ choices, 
but they still leave it to consumers to 
choose what products to use. That 
freedom is beneficial to everyone. 

We applaud efforts at agreement 
on an open TSR (Terminate and Stay 
Resident, that is, memory-resident) 
environment and the concept of 
user-integrable software. As would, 
we have no doubt, Catherine 
Dickens. 





Michael Swaine 















Dr. Dobb's journal of 


Software Tools 


Editorial 
Editor-in-Chief Michael Swaine 
Managing Editor Vince Leone 
Assistant Editor Sara Noah Ruddy 
Technical Editor Allen Holub 
Contributing Editors Ray Duncan 
Allen Holub 
Copy Editor Rhoda Simmons 
Electronic Editor Levi Thomas 
Production 
Production Manager Bob Wynne 
Art Director Shelley Rae Doeden 
Production Assistant Alida Hinton 
Typesetter Jean Aring 
Cover Artist Paul Ambrose 
Circulation 
Fulfillment and 
Newsstand Mgr. Stephanie Barber 
Subscription Mgr. Maureen Kaminski 
Book Marketing Mgr. Jane Sharninghouse 
Circulation Assistant Kathleen Shay 
Administration 
Finance Manager Sandra Dunie 
Business Manager Betty Trickett 
Accounts Payable Supv. Mayda Lopez-Quintana 
Accounts Payable Assts. Denise Giannini 
Kathy Robinson 
Billing Coordinator Laura Di Lazzaro 
Accountant Marilyn Henry 
Adm. Coordinator Kobi Morgan 
Advertising 
Director 
Shawn Horst (415) 366-3600 
Account Managers 
Walter Andrzejewski (617) 868-1524 
Lisa Boudreau (415) 366-3600 
Michele Beaty (317) 875-8093 
Michael Wiener (415) 366-3600 
Promotions/Srves. Mgr. Anna Kittleson 
Advertising Secretary Michelle A. Davié 

































M&T Publishing, Inc. 
Chairman of the Board Otmar Weber 
Director C.F. von Quadt 

President and Publisher Laird Foshay 









Dr. Dobb’s Journal (USPS 3076900 is published month- 
ly by M&T Publishing, Inc., 501 Galveston Dr., Redwood 
City, CA 94063; (415) 366-3600, Second class postage paid 
at Palo Alto and at additional entry points. 








Article Submissions: Send manuscripts and disk (with 
article and listings) to the Assistant Editor. 





Address correction requested. Postmaster: Send Form 
3579 to Dr. Dobb’s Journal, P.O. Box 27809, San Diego, CA 
92128. ISSN 0884-5395 


Customer Service: For subscription problems call: out- 
side CA 800-321-3333; within CA 619-485-9623 or 566- 
6974. For book, back issue, or disk order problems call 
415-424-1474. 


Subscription Rates: $29.97 per year within the United 
States. Foreign subscription rates: $56.97 for airmail, 
$46.97 for surface mail. Foreign subscriptions must be 


pre-paid in U.S. Dollars, drawn on a U.S. Bank. TELEX: 
792-351 


Foreign Distributor: Worldwide Media Service, Inc., 
386 Park Ave. South, New York, NY 10016, (212) 6686- 
1520 TELEX: 620430 (WUD 


Entire contents copyright © 1986 by M&T 
Publishing, Inc. unless otherwise noted on 


specific articles. All rights reserved. 






















People’s Computer Company 
Dr. Dobb’s Journal is published by M&T Publish- 
ing, Inc. under license from People’s Computer Compa- 
ny, 2682 Bishop Dr., Suite 107, San Ramon, CA 94583, a 
non-profit, educational corporation. 






Dr. Dobb’s Journal, April 1986 


The C for Microcomputers 


22 PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 





Manx Aztec C86 
“A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 













Execution Code Compile/ 
Time Size Link Time 








Dhrystone Benchmark 
Manx Aztec C863.3 34 secs 5,760 
Microsoft C 3.0 34 secs 7,146 


93 secs 
119 secs 


Optimized C86 2.20) 53secs 11,009 = 172 secs 
Mark Williams 2.0 56 secs 12,980 113 secs 
Lattice 2.14 89 secs 20,404 117 secs 





Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 


Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler LN86 Overlay Linker 
80186/80286 Support Librarian 

8087/80287 Sensing Lib Profiler 

Extensive UNIX Library DOS, Screen, & Graphics Lib 
Large Memory Model Intel Object Option 


Z (vi) Source Editor -c 
ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System S49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 Greenleaf $185 
PHACT $250 PC-lint $98 

HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 


WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 
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Manx Aztec C68k 


“Library handling is very flexible ... documentation ts 
excellent ... the shell a pleasure to work in... blows 
away the competition for pure compile speed ... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 


Optimized C Creates Clickable Applications 
Macro Assembler Mouse Enhanced SHELL 
Overlay Linker Easy Access to Mac Toolbox 
Resource Compiler UNIX Library Functions 
Debuggers Terminal Emulator (Source) 
Librarian Clear Detailed Documentation 
Source Editor C-Stuff Library 

MacRam Disk -c UniTools (vi,make,diff,grep) -c 


Library Source -c One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 


Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 
AMIGA, CP/M-68k, 68k UNIX call 
Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3. $399 


Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C S49 


Aztec C65-c/128 C64, C128, CPIM $399 





Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 
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but the Aztec C80 Compiler and Professional Develop- 
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Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
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To become an Aztec C user call 1-800-221-0440 or call 
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Payment can be by check, COD, American Express, 
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Orders can also be mailed to Manx Software Systems, 
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How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
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Discounts 
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Columns 

Dear DDJ, 

Hal Hardenbergh’s View- 
point column “Inefficient 
C” (DDJ, January 1986) cor- 
rectly points out the obvi- 
ous—that regardless of the 
arguments high-level lan- 
guage (HLL) advocates 
bring to bear, HLL software 
for microcomputers does 
not perform as well as 
good assembly-language 
software and is conse- 
quently less popular with 
the buying public. His rea- 
soning as to why this is so is 
valid in my experience (ex- 
tensive 808x and Z80 pro- 
gramming in both assem- 
bly and HLL); however, I 
think that the ongoing de- 
bate about the efficiency of 
assembly versus HLL is 
only the focal point of a 
larger issue, which con- 
cerns the attempt to man- 
age the creative process of 
software development. Af- 
ter all, why has such an ac- 
rid debate arisen on a topic 
about which, as Mr. Har- 
denbergh has pointed out 
in DTACK Grounded, there 
can be little doubt (for mi- 
crocomputers, at least)? Be- 
cause standard manage- 
ment practices and corpo- 
rate dynamics make it very 
difficult to follow the soft- 
ware development ap- 
proach required to pro- 
duce good _ assembly 
programs. 

From a management 
perspective, software de- 
velopment falls into an odd 
area somewhere between 
creative and_ technical 
writing. Technical writing 


et en 


can be outlined, broken 
into blocks, and imple- 
mented by many writers 
because it is a description 
of something that already 
exists in finished form. 
However, it would be fool- 
ish to attempt to do the 
same with a novel because 
writing a novel is a cre- 
ative act. Even if the au- 
thor could fully outline the 
novel, no team of writers 
could make it come togeth- 
er; no matter how well 
each wrote his or her indi- 
vidual sections, the parts 
would not cohere. Soft- 
ware development has ele- 
ments of both sorts of writ- 
ing in that it requires 
careful organization yet is 
essentially a_ creative 
process. 

It is easy to fall into the 
trap of viewing software 
development as only a 
kind of technical writing. 
After all, if you ask a nov- 
ice programmer to write a 
program that prints out 


the squares of the integers 
less than ten, he will deliv- 
er a working program 
much like the ones written 
by any other programmer. 
By extension, program- 
ming becomes a basically 
mechanical task of imple- 
menting an already-deter- 
mined solution, with the 
creative work completed 
when the program specifi- 
cation is finished. All too 
often the specification is 
developed by people who 
are not even expert pro- 
grammers, the perception 
being that creation and im- 
plementation are separate 
parts of software 
development. 

This is a critical misper- 
ception. Good microcom- 
puter software results 
from a development pro- 
cess in which the creative 
element, the implementa- 
tion, and the underlying 
hardware must work to- 
gether throughout the de- 
velopment process. 
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The best microcomputer 
software is written in as- 
sembly language under a 
single unifying vision. Both 
the vision and assembly 
language are essential to al- 
low the best matching of 
the application, via the 
code and data structures, 
to the underlying architec- 
ture of the computer. As 
Mr. Hardenbergh indi- 
cates, it is this marriage of 
software and hardware 
that makes assembly pro- 
grams superior. Good as- 
sembly software can only 
be implemented so long as 
the vision can be shared 
and common elements 


fully communicated 
among the entire team. Be- 
Cause communications 


breakdown is the bottle- 
neck, ideally one and nev- 
er more than an absolute 
minimum number of pro- 
grammers should be in- 
volved in any one project. 

Given that the best soft- 
ware is written in assembly 
by a very few program- 
mers, why do so many 
companies end up using 
HLL? A number of factors 
force large and growing 
software companies into 
using HLL (and in this indus- 
try, there are generally 
only large, growing, and 
dying software companies): 

1. The need to deal with 
the inevitable turnover of 
employees. This virtually 
mandates HLL because it is 
difficult to maintain some- 
one else’s assernbly code. 
Exacerbating this is the 
tendency of good software 
developers to move on to 
more interesting projects 
(and companies). 

2. The preference for 
cheap labor. In rapidly 
growing companies, the 
tendency is to add a second 
tier of programmers—of- 
ten right out of school— 
who are paid much less 
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and true compatibles. 


PCVMS™ 


Multitasking, multiuser version of 
DEC’s powerful VAX/VMS 
operating system. Runs most MS- 
DOS programs. 


PCUNIX™ 


True multitasking, multiuser 
operating system similar to 
AT&T’s popular UNIX® operating 
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OPERATING SYSTEM 
TOOLBOX™ 


Complete software construction 
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multitasking, multiuser operating 
systems. 
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LETTERS 
(Continued from page 8) 


than the original group. 
These people are truly pro- 
grammers rather than soft- 
ware developers, rarely 
have any experience with 
assembly language (or 
even with micros), and are 
often brainwashed with 
the doctrine of HLL superi- 
ority. It takes considerable 
experience to become an 
expert assembly program- 
mer, and companies be- 
lieve they can’t afford to 
let their employees learn 
on the job. 

3. The need to control 
employees. The same 
mindset that makes good 
programmers work all 
night when the company 
is developing that first ex- 
citing product leads them 
to follow their own star 
when they’re bored with 
maintaining that code. Er- 
ratic hours and behavior 
may be fine when the 
company consists of a pro- 
grammer and a president 
in a single room, but they 
do not sit well with a new- 
ly minted department 
head who's trying to orga- 
nize his programming 
staff—and good program- 
mers are a notoriously ec- 
centric bunch. | 

4. The need to manage 
projects. As a company 
grows, it accumulates per- 
sonnel, even if it is not al- 
ways Clear what these peo- 
ple are hired to do. There 
is the natural desire of 
managers to exert more in- 
fluence by having a larger 
staff and budget, and there 
is the equally natural de- 
sire to hire more program- 
mers to produce more 
products and so cause the 
company to grow faster. 
Once you have many pro- 
grammers, you must use 
them. Consequently, ten or 
more programmers may 
end up working on a pro- 
ject that would have been 
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handled by one or two a 
year earlier. It is difficult to 
manage so large a staff 
when coding in assembly 
language. (As Mr. Harden- 
bergh pointed out, howev- 
er, HLLS make it easier to 
manage large staffs by ob- 
scuring the architecture of 
the computer and by limit- 
ing the tools available to 
the programmer.) Indeed, 
if the staff gets much larg- 
er, a Unix-based mini and 
SCCS will be required just to 
keep chaos at bay. To 
many this may sound fine, 
but remember that I am 
talking only about a single 
microcomputer product 
that could likely have been 
developed by just one or 
two talented and experi- 
enced assembly 
programmers! 

Note that all these factors 
treat software developers 
as technical writers—cogs 
in the machinery that pro- 
duces a product—rather 
than as novelists—the 
source of the product, and 
the resource around 
which the company is 
built. Marketing, finance, 
management, and so on, 
certainly must also be 
good, but they are there to 
support the product, and it 
is the quality of the prod- 
uct that will define the 
company’s long-term 
SUCCESS. 

One example in an arti- 
cle discussing the virtues of 
Modula-2 (PC Week, Sep- 
tember 24, 1985), MicroPro 
explained that it was 
pleased with Modula-2 be- 
cause it had enabled 50 peo- 
ple to write Easy, its new 
low-end word processor, in 
only nine months. Every- 
one in the audience who 
thinks that they and the ex- 
perienced programmer of 
their choice could develop 
that software (apart from a 
full set of printer drivers, 
perhaps) in assembly in 
nine months, raise their 
hand. (This being DDJ, I ex- 


pect a lot of hands.) And 
would anyone care to bet 
which version would run 
faster? 

The point is not to slight 
either Modula-2 or Micro- 
Pro, but rather to indicate 
that conventional manage- 
ment inexorably drives 
corporate software devel- 
opment in such a way that 
a company can be pleased 
by the somewhat absurd 
outcome of getting a low- 
end product from dozens 
of highly paid people in 
nine months. The need for 
HLLs is merely one result of 
this process. 

In short, the develop- 
ment of good microcom- 
puter software is not ame- 
nable to standard 
management practices. 
Good software developers 
are not just implementers, 
and likewise, good soft- 
ware is not just the imple- 
mentation of a concept— 
the concept, the software, 
and the hardware together 
form a whole. The current 
debate about C versus as- 
sembly is primarily a re- 
flection of that reality. If 
software written in C were 
really as efficient as that 
written in assembly, then 
management would have 
their way, and the issue 
would be moot. Because 
managers must manage 
and because HLLs lend 
themselves to standard 
management, a great deal 
of effort has gone into be- 
lieving that this is true. Be- 
cause it isn’t, management 
often ends up wondering 
why superbly managed 
projects produce mediocre 
software. It’s not that man- 
agement techniques aren’t 
applied thoroughly 
enough—it’s a fundamen- 
tal clash between those 
techniques and the nature 
of computers and creativ- 
ity. This does not mean 
that the development of 
good software cannot be 
managed, scheduled, and 


otherwise integrated into 
the corporate structure; it 
does mean that innovative 
management is required to 
support the special nature 
of software development. 

Michael Abrash 

6 Remy PI. 

Newtown, PA 18940 


Dear DDJ, 
In his January column, 
Ray Duncan states: 

“I put the people who 
upload such programs to 
public BBSs in the same cat- 
egory as terrorists.’ 

I, too, deplore this con- 
duct. Nonetheless, to com- 
pare the loss of a disk of 
data to the murder of 19 
humans is inappropriate. 

By the way, in your 
search for good colum- 
nists, may I suggest Hal 
Hardenbergh? Even 
though he does not have 
the time to write DTACK 
Grounded any longer, he 
may have time to do a col- 
umn. His opinions are al- 
ways interesting, even if 
misguided. (I have the sys- 
tem he most maligns—I 
program in C on a Berke- 
ley 4.2 Unix system with a 
National Semi 16032 CPU— 
and [ still like to read Hal!) 

Ivan Strand 

145 Del Mar Ave. 

Berkeley, CA 94708 


We've been hounding Hal 
Hardenbergh for two years 
to write for us. Maybe your 
letter will help. Maybe spell- 
ing his name correctly 
(which we failed to do in 
January ) will help.—ed. 


BANKSWAP 

Dear DDJ, 

Albert Woodhull’s article, 
‘““BANKSWAP”’ (December 
1985), illustrating the use of 
the CP/M 3 RSX procedure 
for extending the DRI DDT 
and SID utilities so they can 
be used to explore banks 
other than Bank 1, prom- 
ises to be useful. I’d like to 
comment on a few points 
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This is no little beginner's model. Let's C is a powerful programming tool, packed with all the 
essentials of the famous Mark Williams C Programming System. The one chosen by Intel, DEC, Wang 


Mark Williams Let’s C 


e For the IBM-PC and 
MS-DOS 

e Fast compact code plus 
register variables 

e Full Kernighan & Ritchie C 
and extensions 

© Full UNIX” compatibility 
and complete libraries 

© Small memory model 

© Many powerful utilities 
including linker, 

, assembler, archiver, cc 
one-step compiling, egrep, 
pr, tail, we 

® MicroEMACS full screen 
editor with source 

© Supported by dozens of 
third party libraries 

© Upgradeable to C 
Programming System for 
large scale applications 
development 

Let’s C Benchmark Done on 

an IBM-PC/XT, no 8087. 

Program: Floating Point 

from BYTE, August, 1983. 

Exec Time in Seconds 

134.20 
347.45 


Let’s C 
MS 3.0 


© 1985 Mark Williams 


and thousands of professional programmers. The one that wins the 
benchmarks and the reviewers praise: 


“(This compiler) has the most professional feel of any package we tested...” —BYTE 
“Of all the compilers reviewed, (it) would be my first choice for product 
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Debugger for just $75, too. 
You can breeze through 
debugging at the C source 
level ignoring clunky 
assembler code. 

Affordable, powerful, 
debuggable. Mark Williams 
Let’s C is the big name C 
compiler at a price you can 
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it NOW. 


Mark 
Williams 
Company 
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made by Mr. Woodhull in 
the article. 

First, user programs can 
indeed access memory in 
alternate banks. Advanced 
Logic Systems, in BIOS ver- 
sion 3.01B1 and later (also 
older ones?), provided two 
new BIOS functions to al- 
low reading and writing to 
the regular Apple memo- 
ry. Regular Apple memory 
is Bank 0 in the CP/M 3 im- 
plementation that ALS and 


DRI came out with for the | 


ALS CP/M Card. These new 
BIOS functions are num- 
bers 33 (APREAD) and 34 
(APWRITE). In the ALS 
3.01B2 upgrade and the 
public domain CP-PLUG 
3.02B BIOS derived from 
the ALS 3.01B2 version, a 
third additional BIOS func- 
tion, number 35 (CAPPLE) 
that allows calls to be made 
to a Bank 0 (Apple memo- 
ry) address, was added. 

The routine in Table 1, 
below, can be_ inserted 
early in a program to set 
local jumps to the BIOS for 
interbank read, write, and 
(if implemented) call oper- 
ations. I first saw the rou- 
tine published by the 
short-lived and now de- 
funct CP/M Plus Users 
Group (CP-PLUG). You will 
find it used in, for exam- 
ple, code for MDM7xx and 
IMP overlays for the ALS 
CP/M Card. To use these 
the Apple Bank O address 
being read, written to, or 
called to, must be in HL 
and no remapping is nec- 
essary. The byte written to 
or read from this Apple ad- 
dress must be in (APWRITE) 
or is returned to (APREAD) 
the Accumulator. 

As an example, to ring 
Apple's bell one needs to 
call to Apple II location 


FF3A. Thus, to do that from 
CP/M: 


ORG 0100H 
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CALL APINIT 
LXI H,OFF3AH 
CALL CAPPL 
RET 


APINIT: (etc.) 


You can also do this us- 
ing the direct BIOS call con- 
vention, which makes use 
of BDOS function number 
50. Use BIOS function num- 
bers 33, 34, and 35 for 
reads, writes, and calls, 
respectively. 

The second point to be 
made is illustrated by the 
simple bell-ringer pro- 
gram. It is under some cir- 
cumstances possible to exe- 
cute programs in which 
code is in a different bank 
from Bank 1, and in the ex- 
ample shown, the execu- 
tion happens also to be via 
6502 code executed by the 
Apple 6502 CPU. I’ve 
uploaded to a few RCP/M’s 
a library file called AP- 
+BRUN.LBR, which _ in- 
cludes a program that al- 
lows some Apple II binary 
executable programs to be 
converted into a CP/M pro- 
gram that, when the CP/M 
program is run, loads the 
binary into Bank 0 and 
then calls to it to execute it. 


LHLD 
LX! 


0001 
D,20H*3 


APINIT: 


DAD D . 
SHLD APRD+ 


INX H 
INX H 
INX H 
SHLD APWRT+1 
INX H 


INX H 

INX H 

SHLD CAPPL+1 
RET 


APRD: JMP 
APWRT: JMP 
CAPPL: JMP 


0000 
0000 
0000 


Table 1 


In this way, for example, 
disk macros that the Videx 
Keyboard Enhancer pro- 
duces on an Apple II DOS 
3.3 disk can be trans- 
formed into a CP/M-execut- 
able file on an Apple II CP/ 
M disk. Thus they can be 
downloaded while in the 
CP/M environment. 

Finally, the bank-switch- 
ing BIOS function (SELMEM) 
is accessible but one must 
call it from common mem- 
ory. The RSX approach to 
scaling the heights to com- 
mon memory is one way 
of doing it; another way is 
simply to have the pro- 
gram _ relocate _bank- 
switching code there that 
maintains relations with 
the program that is operat- 
ing in Bank 1. 

For those who have the 
ALS CP/M Card, revision B, 
the “B” and “C’”’ BIOS revi- 
sions all seem to put the 
start of common memory 
at 6000H. 

The points I raise are rel- 
atively minor. I think read- 
ers who may have the ALS 
CP/M Card and have won- 
dered how to do interbank 
accesses may be interested 
in the APINIT: routine. 

My appreciation to Al- 
bert Woodhull and to DDJ 
for the ‘“‘BANKSWAP’”’ 


;get bios pointer to warm boot 
;0ffset 32 more jumps to APREAD 


jump 


_jadd them 
;store APREAD jump address 


locally 


;next jump is APWRITE 


;Store that locally 
;bump to CAPPLE bios jump (if 


implemented) 


;Store locally 


;these are filled in by APINIT 
_ other bank will RET 





article. 
Jerry Levy 
1129 Dundee Dr. 
Dresher, PA 19025 


Help! 
Dear DDJ, 
I have been a subscriber to 
Dr. Dobb’s Journal for 
quite a while and find it a 
very useful tool for my To- 
shiba T100 CP/M system. 
However, I am _ having 
some difficulty finding 
software to run a Black 
Box model 1200H modem 
(300/1200 bps). Any infor- 
mation or direction I 
should pursue would be 
most appreciated. Thank 
you. 

Edward Starke 

27 Kerwick Ct. 

North Wales, PA 19454 


Donations? 

Dear DDJ, 

I represent a nonprofit, 
charitable organization 
that uses microcomputer 
equipment in virtually ev- 
ery aspect of its affairs. We 
would be grateful if your 
readers would consider 
contributing additional 
equipment. Donations of 
this sort can have substan- 
tial financial benefits. If 
you are in a position to 
contribute or would like 
more information, please 
write or call (collect if you 
like) (617) 495-9020. 

Robert Epstein 
Cambridge Center for 
Behavioral Studies 

11 Ware St. 
Cambridge, MA 02138 


Corrections 

There were two errors in 
the diagrams for Alan D. 
Wilcox’s article, “Bringing 
Up the 68000—A First Step” 
(DDJ, January 1986). In Fig- 
ure 4 on page 66, the 68000 
bus request (BR) should be 
pin 13. In Figure 5 on page 
68, the lower trace should 
be REST.—ed. 


DDJ 
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A“C” programmer’s tool to increase screen develop- 
ment productivity for the IBM PC. Security checking and 
help screen display are available at both the screen 
and field level. The automatic conversion of data fypes, 
to and from ASCII screen format, and the many other 
productivity-oriented features, set ZVIEW apart from 


the rest. 
Screen Painter Highlights: 


e Border colors and all character attributes and colors 
are supported. 

Draw single or double lined boxes using 
preset key strokes. 

« Two field sensitivity settings to facilitate the moving 
and adding of fields, without destroying existing _ 
field characteristics. 

- Three types of fields are available: “Protected,” 
“Unprotected” and “Heading.” The number of fields 
is limited to 600!! 


Program Interface Highlights: 

» Onlyseven run-time library functions control all aspects of 
the program to screen interface. 

¢ Dynamically change any field characteristic at run-time. 

» Awide range of run-time variables to further customize 
ZVIEW’s operation. 

» One call to ZVIEW’s “Waitkey” function, performs all field 
edits and program to end user interface. 

« Automatic data conversion of all data types to and from 
data structures and buffers. Data goes directly from data 
type to screen format and back, with one call each way. 


e Both 40 and 80 column screens are supported. 


Optional Field Characteristics: 
« Choose left or right justification, with zero or blank fill. 
« Automatic key stroke conversion fo upper or lower case. 
» Edit fields to be numeric (signed or unsigned), 
decimal (zero to six decimals supported), alpha 
or alphanumeric. 
e Display numerical values with or without 
commas inserted. 
- All “C” data types are supported, including a special 
long value which is displayed as a decimal field. 


Requirements: } 

° Microsoft 3.0 “C” or Lattice “C” compiler. (Call for 
additional information on compiler availability). 

» IBM PC, XT, AT or compatible, MS/PC DOS, one 320k 
drive, a color graphics adapter and any 40 or 80 
column display. 


° From and to range checking and character Price: 
matching edit. © $245 ! 
- Security level settings to restrict inquiring or updating Includes manual and a detailed program example. 


of a field. 
e Override ZVIEW’s default tabbing sequence. 
e Assignment of a single or multiple screen help file, 
to be displayed when the field level help key is pressed. 
« Compare one field to three other fields on the 
current screen. i 
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FORUM 


DDJ ON LINE 


This month I would like to 
describe in greater detail 
the purpose of the DDJ Fo- 
rum on CompuServe, out- 
line its structure, and give 
a brief description of the 
Forum Data Libraries. 

The Forum can_ be 
reached by typing GO 
DDJFORUM from any Com- 
puServe system ! prompt. 
The Forum, along with the 
Display Area (GO DDJ) serves 
as an electronic extension 
of the magazine. Our pri- 
mary aim is to make avail- 
able in electronic form 
most of the programming 
code published in the mag- 
azine. Other goals are to 
stimulate discussion be- 
tween our readers and edi- 
tors/authors/columnists 
and to serve as a general 
clearinghouse for informa- 
tion of interest to profes- 
sional programmers. 


Forum Architecture 
and Features 

You enter the Forum at the 
Function Menu. From here 
you can access the Forum 
Message Boards, Confer- 
ence Channels, Data Li- 
braries, and Bulletins. In 
order to make use of these 
features, you should first 
learn a bit about the struc- 
ture of the Forum. 

The Forum is divided 
into seven Sub-Topics that 
roughly correspond to ar- 
eas regularly covered in 
the magazine. Associated 
with every Sub-Topic are a 
Data Library, a Message 
Board, and a real-time Con- 
ference Channel. The Data 
Library (DL) is where files 
that come under the Sub- 
Topic are stored. The user 
may download files from 
the DL and may also 
upload files to a temporary 
holding area within the 
DL. These files are re- 
viewed by the sysop and if 
found suitable are merged 
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into the DL itself. We invite 
your contributions. The 
Message Board allows mes- 
sages relating to the Sub- 
Topic to be exchanged. 
The Conference Channel is 
where formal or informal 
conferences focusing on 
the Sub-Topic are staged. 
Here’s a concrete exam- 
ple. In the Forum, Sub- 
Topic 2 is called 16-Bit Tool- 
box. This  Sub-Topic 
corresponds roughly to 
Ray Duncan's 16-Bit Soft- 
ware Toolbox column. As- 
sociated with this Sub-Top- 
ic is Data Library 2 (DL2), in 
which you can find the 
listings from Ray’s column 
(along with listings from 
similar articles. If you 
want to leave a message re- 
lated to Sub-Topic/DL2, 
you store that message un- 
der Sub-Topic 2. You can 
also read threads of mes- 
sages under Sub-Topic 2 
for discussion of issues 
raised by Ray’s column. If 
we have a conference with 
Ray, it will be staged on the 
Conference Channel asso- 
ciated with Sub-Topic 2. 
The subjects of the Sub- 
Topics/DLs are as follows: 


0) General—General dis- 
cussion, questions and 
help files. 

1) C Chest—C programs 
from articles in DDJ; list- 
ings from Allen Holub’s C 
Chest and Axel Schreiner’s 
Unix Exchange columns. 

2) 16-Bit Toolbox—8:088/ 
8086/80286 assembly lan- 
guage; PC/MS DOS and IBM 
PC related material; listings 
from Ray Duncan’s 16-Bit 
Software Toolbox column. 
3) 68K Toolbox—68000 as- 
sembly language; pro- 
grams for the popular 68K 
micros (the Mac, Amiga, 
and ST). 

4) CP/M Exchange—Z80 or 
8080 assembly language; 
CP/M related material. 


ee iinet ies coal iaiia as 


5) Pascal, Ada, M2—Pro- 
grams written in the most 
popular structured lan- 
guages (Pascal, Ada, and 
Modula-2). 

6) Forth—Programs writ- 
ten in Forth. 


The files in the Data Li- 
braries are only program 
listings, that is, source code 
listed as ASCII text. We have 
decided to keep executable 
files in the DLs to a mini- 
mum. Our thinking is that 
it is primarily an educa- 
tional resource and that 
the value of our code rests 
in the fact that people can 
read it and learn from it. 
Although executable files 
are useful, they do not 
teach the programmer 
anything. 

Starting with the Janu- 
ary 1986 issue, almost all 
listings from each new is- 
sue have been uploaded to 
the Forum. We also have 
been uploading code from 
back issues. The following 
is a partial list of these back 
issue listings along with 
other files contributed by 
Forum members. This list 
will have been substantial- 
ly expanded by the time 
you read it. 


XFR.C—A Christensen pro- 
tocol file transfer pro- 
gram. Designed for 
19.2K baud ‘“‘nose-to- 
nose’ transfers be- 
tween computers, but 
also works very well in 
modem use at low 
speeds. XFR is compati- 
ble with most versions 
of Modem7. Written in 
Eco C for a Zorba CP/M 
machine, but can be eas- 
ily modified. I/O primi- 
tives set up for I/O 
mapped Intel 8251A 
UART. By Donald 
Krantz. From #104 (June 
1985). 

BITMAP.C—A package of 


general purpose bitmap 
management routines. 
Includes makebitmap( ), 
setbit( ), and testbit( ). 
By Allen Holub. From C 
Chest, #104. 
CROOT.C—A modified ver- 
sion of the Aztec CII (CP/ 
M version) root module 
that allows that compil- 
er to support pipes, re- 
direction, quoted argu- 
ments, and command- 
-line wildcard 
expansion. By Allen Ho- 
lub. From C Chest, #101 
(March 1985). 
ECHO.C—A program that 
echoes its arguments to 
standard output. Useful 
for testing the croot 
modifications in 
CROOT.C and LOADER- 
.ASM. By Allen Holub. 
From C Chest, #101 
(March 1985). 
GETARG.C—A general pur- 
pose command line 
parser. See also GE- 
TARG.H and STOIC. By 
Allen Holub. From C 
Chest, #103 (May 1985). 
GETARG.H—A header file 
needed to use the rou- 
tines in GETARG.C. By AI- 
len Holub. From C 
Chest, #103 (May 1985). 
LOADER.ASM—Assembly 
language support for 
CROOT.C. This routine al- 
lows you to chain to an- 
other program under 
CP/M (to do an exec( ) 
call). By Allen Holub. 
From C Chest, #101 
(March 1985). 
QSORT.C—A general pur- 
pose quicksort routine 
modeled after the Unix 
qsort( ) routine. See also 
SSORT.C. By Allen Holub. 
From C Chest, #102 
(April 1985). 
QUEUE.C—A package of 
general purpose queue 
management routines. 
Includes makequeue( ), 
del_queue( ), enqueue‘ ), 
and dequeue‘ ). By Allen 
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Why your next generation of 
products should use our Sth 
generation tools. 






Arity’s integrated family of programming tools allows you to combine software written in 
Arity/Prolog, the best of the fifth generation languages, with Arity SQL, the best of the 
fourth generation languages, and with conventional third generation languages such as 
C or assembly language to build your smarter application. 


You can use Arity/Prolog to build expert systems using the Arity Expert Systems 
Development Package. Or to build natural language frontends. Or to build intelligent 
information management systems. Arity/Prolog lets you build advanced technology into 
your vertical applications package. 


And more... 


That’s not the whole story. Arity’s products are all designed to be fast, powerful, serious. 
Each of our products contains unexpected bonuses. Such as a one gigabyte virtual 
database integrated into Arity/Prolog. The most powerful of its kind on a PC. 


Quality first. Then price. 


In order to be the best, we had to prove it to our customers. Our tradition of quality 
software design is reflected in every product we sell. Quality first. ‘Then price. And we 
always provide the best in customer support. 


Our products are not copy protected. We do not charge royalties. We offer generous 
| educational and quantity discounts. And we have a 30 day money back guarantee. 


| ‘Try us to know that we keep our promise on commitment to quality and reliability. ‘Iry 
| us by using our electronic bulletin board at 617-369-5622 or call us by telephone—you 
can reach us at 617-371-2422. 


Or fill in this coupon. Whether you order today or not, let us send you full descriptions 
of our integrated family of Arity products. 














arity , Please complete this form to place your order and/or request detailed information. Quantity Inte only 
Arity/Prolog Compiler and Interpreter V4 2.6... ee eee eee $795.00 
i , . ; Arity/Prolog Interpreter V4... 2.6.6 eee ee eee eee ees $350.00 eee 
’ We design and distribute © Arity Standard Prolog .....6...0 000000 ecee eset nent eeees $95.00 ie 
high quality, serious Arity SQL Development Package ... 26... - 0 ee eee eee eee $295.00 <i es 
application software for Arity Expert System Development Package .....--6. 05+ +e: $295.00 is 
Arity Screen Design Toolkit «2.6... 6... ee eee cee ee ee eee $ 49.95 Shoe 
‘ the IBM PC; XT, AT Arity File Interchange ‘Toolkit... 6.6.6.6 eee ee eee eee $ 49.95 Rae 
and all MS-DOS TOTAL AMOUNT (MA residents add 5% sales tax) (These prices include shipping to all U.S. cities) $ 
compatibles. NAME 222 ee 


SHIPPING ADDRESS ee 
CITY/STATE/ZIP __— : 


TELEPHONE._—_— 


Payment: 1] Check ) PO CF) AMEX CJ VISA CL] MC 
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ARITY CORPORATION ¢ 358 BAKER AVENUE ¢ CONCORD, MA 01742 ——————— 
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RK4.C—Fourth 


DDJ ON LINE 
(Continued from page 14) 


Holub. From C Chest, 
#104 (June 1985). 
order 
Runge-Kutta integration 
of a single differential 
equation. This program 
along with RKTST1.C, 
RK4N.C, RKST1.C, and 
RKST2.C (also in the DLs) 
forms a system for RK4 
integration of single or 
multiple differential 
equations. An excellent 
example of a scientific/ 
engineering algorithm 
for numerical analysis 
implemented in C. By 
M. Roberts and A. Skjel- 
lum. From Toolbook of 
oF 


SSORT.C —A version of 


qsort( ) that does a Shell 
Sort. This routine has 
been improved some- 
what over the version 





in K&R by using a gap 
size that isn't a power of 
two, as per Knuth. See 
also QOSORT.C (in this 
same DL). By Allen Ho- 
lub. See C Chest, #102 
(April 1985). 


STOI.C—A string to integer 


conversion routine used 
by GETARG.C (in this 
same DL). Accepts hex, 
octal, and decimal rep- 
resentations and up- 
dates its argument to 
point past any parsed 
digits. By Allen Holub. 
From C Chest, (May 
1985). 


DUMPF.ASM—Filter to pro- 


duce a formatted dump 
in Hex and ASCII. By 
Richard Markley. See 
also DUMP.C and 
DUMP.ASM. From #109 
(November ‘'85) 16-Bit 
Software Toolbox. 


FSTCLN.ASM—Converts a 


word processor docu- 


ment file into a stan- 
dard ASCII text file. Simi- 
lar to CLEAN.ASM and 
CLEAN.C but much fast- 
er. By Ray Duncan. 


LJ.C—Utility to print a file 


on the Hewlett-Packard 
LaserJet. Prints pages 
‘‘2-up’’ in Landscape 
Mode. Compatible with 
Microsoft C 3.0. By Joe 
Barnhart and Ray Dun- 
can. Improved version 
of LJ.C from #107 (Sep- 
tember ’85) 16-Bit Soft- 
ware Toolbox. 


ASCBIN.ASM —Subroutine 


to convert decimal or 
hexadecimal ASCII 
strings into their binary 
equivalents. By Ray 
Duncan. 


BINASC.ASM—Subroutine to 


convert 32-bit binary 
number into an ASCII 
decimal string. Includes 
a general purpose 32-bit 
divide routine. By Ray 


Duncan. From #4101 
(March 1985) 16-Bit Soft- 
ware Toolbox. 


BREAK.ASM—Control- 


Break interrupt handler 
for Microsoft C pro- 
grams. By Ray Duncan. 
From #107 (September 
1985) 16-Bit Software 
Toolbox. 


BREAK.C—Demonstration 


of the use of the Con- 
trol-Break handler in 
BREAK.ASM. By Ray Dun- 
can. From #107 (Septem- 
ber 1985) 16-Bit Soft- 
ware Toolbox. 


CLEAN.ASM—Filter to 


transform a word pro- 
cessor document file 
into a normal ASCII text 
file. Assembly language 
version. From #108 (Oc- 
tober 1984) 16-Bit Soft- 
ware Toolbox. By Ray 
Duncan. 
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Parlez-vous Pascal? 


Mais oui. 

After you've digested this, you will. 

Introducing“Exploring Pascal: A Compiler 
For Beginners’ 

The fastest way on the planet to learn and 
use Pascal. : 

So you can put some of 
your programming ideas to work, 
to accomplish your specialized 
needs. And have the power of a 
pseudo-compiler, too. 

It's fast because we make 
it as easy as possible. 

Exploring Pascal is a 
unique, multimedia book and 
disk learning system. 

The manual is very easy 


to read. Because you don’t want 
to have to struggle with the 





English language to learn a new computer 
language. 

The software tutorials are interactive, and 
the exercises are computer graded. So you know 
how youre doing, every step of the way. 

And there are animated 
demonstrations of important 
concepts. 

400 screens of help in all. 

Td order, for the name 
of your nearest dealer, or for more 
Information, just call the 
Ashton-Tate Publishing Group at 
800-437-4329, Ext. 248, 

If you're computer literate 
and are ready to step up to 
computer programming, its really 
tres bon. 


Trademark/owner: Ashton-Tate. © 1986 Ashton-Tate. 
All rights reserved. Specifications subject to change without notice. 


Circle no. 248 on reader service card. 
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Interpreter for MS-DOS/PC-DOS 


At last! A Prolog with enough muscle to handle 
real-world applications for UNDER $100! Discover 
why Japan has chosen Prolog as the vehicle for their 
“Fifth Generation Machine” project to design 
intelligent computers. 


CHOOSE FROM TWO GREAT VERSIONS: 











0 More Than 100 Predefined 0 70 Predetined Predicates 


Predicates 0 Small Memory Model 
O Large Memory Model (to 640K) O Integer Arithmetic 
0 Floating Point Arithmetic 0 122-Page User's Manual 
0 150-Page User’s Manual and and Tutorial 


Tutorial plus Advanced 
Programming Documentation 


0 Co-Resident Program Editor 
0 Calls to Co-Resident Programs 
0 Text and Graphic Screen 













Manipulation 
0 Clocksin & Mellish-Standard 0 Dynamic Memory Management 
Edinburgh Syntax. (garbage collection) for only the ¢ 
0 Extensive Interactive Debugging 0 Custom-Designed Binder in price plus a 
handling charge. 


Facilities and Slipcase 
etc termcmekcialene: alceniee " NO RISK OFFER 


ni Baa Examine the documentation 





Generous university site licenses and an excellent teaching tutorial and at our risk for 30 days. If 
reference guide have made PROLOG V the choice of universities nationwide. not fully satisfied. return 
Call for details. with disk still sealed for 

full refund. 


PHONE ORDERS: 1-800-621-0852 EXT 468 











‘0 PAYMENT ENCLOSED $ PROLOG V-Plus $99.95 
CA residents add 6% sales tax PROLOG V 69.95 


UPGRADE ONLY 40.00 
UO CHARGE MY: LJ MasterCard C] Visa Return factory diskette and 
$30 plus $10 Handling 
Exp. Date 
SHIPPING: 
$ 5.00 US. 
7.50 Canada 
10.00 Carribean, 
Hawaii Air 

20.00 Overseas Air 

COD Orders Not Accepted 


15 day check clearance 
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5580 LA JOLLA BLVD. 
SUITE: 126 D 

LA JOLLA, CA 

92037 

(619) 483-8513 
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Redirection—The /dev Directory, SWITCHAR, and Touch 


I/O Redirection and /dev 

‘d been avoiding adding redirec- 

tion to the shell ever since I first 
wrote it. I thought it was just too hard 
to do. It turns out that I was wrong. 
So, I'm starting out this month by 
talking about how redirection 
works. I’ve already added this code 
to the version of the shell that DDJ is 
distributing. 

Let's start with a little background. 
In Unix and in DOS, there’s no differ- 
ence between a file and a device 
from the point of view of the I/O rou- 
tines. That is, all the DOS function 
calls that can talk to a file can also 
communicate with any DOS device, 
including the console and the print- 
_ er. Unix supports a special directory 
called /dev for this purpose. All de- 
vices are treated as files in the /dev 
directory—for example, you can 
send output directly to a terminal by 
writing to that terminal asif it werea 
file. Each terminal has a unique 
name associated with it, such as 
/dev /tty01. | 

To my pleasant surprise I discov- 
ered quite by accident that DOS sup- 
ports this same mechanism, though 
it uses its own device names. (I wish 
they'd document some of this stuff.) 
For example, you can tell DOs: 


A> type foo > \devprn\ 


and it will send the output to the 
printer. Try it. The mechanism is sup- 
ported even at the programming lev- 
el. You can go ahead and open the 





by Allen Holub 





printer for output, and then write to 
it, by saying: 


FILE *Ipr; 
Ipr = fopen( ‘“/dev/prn”’, ‘““w” ): 
fprintf( Ipr, 

“Quo usque tandem abutere’” ): 
fprintf( Ipr, “. . . patientia nostra.\n” ): 





All the normal DOS devices are sup- 
ported—/dev/con, /dev/com1, and 
so on. Your C I/O library actually 
doesn't know that it’s writing to a de- 
vice—it thinks it’s accessing a file. 

The console I/O functions take ad- 
vantage of this mechanism. All the 
low-level I/O functions use a set of 
“file handles” that are maintained by 
DOS. A file handle is an integer value 
that’s returned from DOS when a file 
or device is opened. This handle is 
then passed back to DOS every time 
you want to communicate with the 
associated file or device. In fact, three 
file handles (0, 1, and 2) are opened 
for you by DOS when it executes your 
program. Output sent to handles 1 
and 2 goes to the screen, and input 
from handle 0 comes from the key- 
board. The three I/O streams stdin, 
stdout, and stderr use handles 0, 1, 
and 2, respectively. 

Handles 0, 1, and 2 aren’t special. 
You can close them with a normal 
close( ) subroutine call. You can also 
reassign them to another file or de- 
vice by opening them again. There 
are three ways to do this reassign- 
ment. First, when you close a file 
with close( ), it frees up the associated 
handle. The next open( ) call will just 
grab the first available handle—if you 
close handle 0, the next open( ) call 
will use handle 0 for the newly 
opened file. For example, standard in- 
put can be reassigned with: 


close( 0 ); 
iflopen(‘Elizabeth’’, O_RDONLY) != 0) 
printf(“Couldn’t reassign 
standard input’’); 


Here, standard input is closed. The 


subsequent open call then uses the 
next available handle, which will be 
handle 0. You can make sure the re- 
assignment worked as expected by 
testing the return value from open 
(the new handle) to make sure it’s 0 
(standard input). Though this method 
works if your I/O library is really 
Unix compatible, your compiler may 
not duplicate Unix exactly. 

Another way of reassigning han- 
dles is to use the dup2( ) system call. 
The following example opens an ex- 
isting file for appending and then 
changes standard error to write to 
that file rather than to the screen. 


if( (fd = open(‘‘Bennet”’, 
O_WRONLY :O_APPEND)) == —1) 
printf(“Can’t open Bennet\n’’); 
else 
dup2( fd, 2 ); 


The file Bennet is opened for write, 
and then file handle 2 (standard er- 
ror) is forced to reference Bennet 
rather than standard error (with the 
dup2( ) call). The file name can be 
any device, so if you had said /dev/ 
prn instead of Bennet then standard 
output would be sent to the printer 
instead of to the screen. 

The third mechanism, and the eas- 
iest to use, is the freopen( ) system 
call: 


freopen( filename, mode, stream ) 
char *filename, *mode; 
FILE *stream; 


The first two arguments are the 
Same name and mode that you’d use 
with a normal fopen( ) call. Freopen 
will change the indicated stream, as 
well as the associated file handle, so 
that it now references the newly 
opened file instead of the original 
one. You can change stderr so that 
the error output is sent to the printer 
with the following: 
if( !freopen( ‘“/dev/prn’”’, ““w’”’, stderr) ) 
printf(Can’t reopen stderr\n’’): 
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Unix 





A good C book just isn’t complete without a good C 
compiler to go with it. That’s why we give you both. You get 
a comprehensive 450 page book and a full feature standard 
K&R C compiler with the Unix V7 Extensions. The Book is 
loaded with examples that teach you how to program in C. 
And our fast one pass C compiler comes with an equally fast 


Language Features 


@ Data Types: char, short, 
int, unsigned, long, float, 
double 


Data Classes: auto, 
extern, static, register 


Typedef, Struct, Union, 
Bit Fields, Enumerations 


Structure Assignment, 
Passing/Returning 
Structures 





MIX Editor 
$29.95 


The Best C Book 


-+= A Powerful C Compiler 
One Great C Value *39.95 


linker so you don’t waste a lot of time watching your disk 
drives spin. You also get a Unix compatible function library 
that contains more than 150 functions (C source code 
included ). And if all that isn’t enough, we offer you a 30 day 
money back guarantee. So what are you waiting for? The 
exciting world of C is just one free phone call away. 


Functions 


strcpy 
strlen 
strncat 
strncmp 
strncpy 
strsave 
system 
tolower 
toupper 
ea 
a 
write 
writechs 
xmembeg 
xmemend 
xmemget 
xmemput 
xmovmem 
exit 


ASM Utility 
$410 


When you’re programming in a high 
level language you need a high power- 
ed editor. That’s why we created a 
programmable full/split screen text 
processor. It lets you split the screen 
horizontally or vertically and edit two 
files at once. You can move text back 
and forth between two windows. You 
can also create your own macro com- 


100 predefined commands. The editor 
comes configured so that it works just 
like Wordstar but you can change it if 
you prefer a different keyboard layout. 
The editor is a great companion to our 
C compiler. Because they work so 
well together we want you to have 
both. To make sure you do, we're 
offering the editor for just $15 when 




















The ASM utility disk allows you to link 
object files created by Microsoft’s MASM 
or M80 assemblers. Lots of useful assem- 
bly language functions are included as 
examples. 









ORDERS ONLY 


1-800-523-9520 





IN TEXAS 
mands from an assortment of over purchased with the C compiler. 4-800-622-407 O 
Canadian Distributor 
Sara Software: 416-923-1500 
NOT COPY PROTECTED guay 923-15 
ere | 
| Editor $ (29.95) O PCDOS/MSDOS (2.0 or later) Name | 
2 : 0 IBM PC Single Side 
| aad (39.95) 1 IBM PC Double Side Sefeet | ' 
C & Editor $ (54.95) O Tandy 2000 Ci 
| ty | 
ili $ (10.00) pica 
ASM Ut 
| eis O Other State 
| Tx Residents $ (6.125% sales tax) O CPM 80 (2.2 or later) | 
Zip | 
| Shipping $ (see below) ei 
| C) Kaypro II Country 
| Total retention 0) Kaypro 4 | 
| O Check UC Money Order O Apple (Z80) Phone | 
Tec Rives Exp_—_—  O Osborne 1 SD 2116 E. Arapaho 
Shipping Charges: (No charge for ASM Utility) 0 Osborne I DD Suite 363 
| USA: $5/Order C Morrow MD II software Richardson, TX 75081 
| Canada: $10/Order C Other (214) 783-6001 | 


Ask about our volume discounts. 


is a trademark of Bell Labs. CPM is a trademark of Digital Research. MSDOS is a trademark of Microsoft. PCDOS isa trademark of IBM. WORDSTAR isa trademark of Micro Pro. 


 GHEST 
(Continued from page 18) 


All this is well and good, but how 
does it apply to redirection? In DOS, 
when a program spawns a child pro- 
cess (that is, when one program exe- 
cutes a second program with an 
exec( ), fork( ), or spawn( ) system 

BCE R CORO UIE LC call), the child process (the second 
entire planetary systems. program) inherits all the file descrip- 
And me.” tors (file handles) of the parent pro- 
cess. That is, if you are writing to a 
file and you spawn a child process, 
that child can continue writing to the 
same file without reopening it. This 
was causing problems in batch file 
processing because it turns out that 
the child can also close files that be- 
long to the parent as an unwanted 

side effect of a normal exit( ) call. 
Anyway, for some reason it had 
never occurred to me that stdin, 
stdout, and stderr (or more accurate- 
ly the file handles 0, 1, and 2) aren’t 
special. If they’ve been modified 
(with any of the mechanisms that 
I've just described) to talk to a file 
rather than to the console, they'll still 
be referencing that new file when 
the child inherits them. If the child 
tries to write to standard output, the 
child will actually write to the file. 
So, if you redirect standard input, 
output, or error in the parent process 
(in this case the shell), the child pro- 
cess will have its equivalent I/O 
streams redirected to the same place. 
To my amazement all the forego- 
““You Guessed It!’? It’s just like a TV game show. ing actually works correctly in DOS. 
Answer questions —win prizes. The code to implement redirection is 
And I can play right here a in Listing One, page 58. Note that I’ve. 
in the living room!” “~ supported the following five Unix re- 
. direction modes (DOS supports only 

the first three of these): 


“Anyone 
who wants to win MegaWars 


< file—Input is taken from the file 
rather than from standard input. 

=> file—Standard output is put into 
the file rather than being printed 
on the screen. The previous con- 
tents, if any, of the file are de- 
stroyed. 

> => file—Same as > except that out- 
put is appended to the end of the 
file if the file exists. 

>& file—Same as > except both 
standard output and standard er- 
ror are redirected. 

=> >& file—Same as >> except both 
standard output and standard er- 
ror are redirected. 


Circle no. 237 on reader service card. 
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SWITCHAR for DOS 3.x 

A few months back I mentioned the 
SWITCHAR=— function. Putting the 
above in your config.sys file would 
cause the — to be used for command 
line switches rather than /. The / 
could then be used as a directory sep- 
arator. Unfortunately, this feature, 
undocumented in DOS Version 2.x, 
was removed entirely from Version 
3.X. 

To some extent, writing the shell 
was my solution to this problem, but 
for those of you who prefer com- 
mand.com, Tony LiCausi writes: 
“Commuters between DOS and Unix, 
take heart. Function call 0x37 of INT 
0x21 still supports ‘switch the switch 
character.’ If the AL register is set to 
0, the function will return the cur- 
rent switch character in DL. If the AL 
register is set to 1, the switch charac- 
ter will be set to the character found 
in DL. 

“There have been, and still are, 
drawbacks to setting the switch char- 
acter to something other than /. Not 
all programs support the new char- 
acter. Command.com and all its in- 
ternal routines do accept it, howev- 
er, as do Join, Subst, and Format. On 
the other hand, Backup and Restore 
do not (so be sure the switch charac- 
ter is set to / when you run these). 
New versions of the linker and so on 
don't support the switch character 
mechanism. Many of these pro- 
grams, however, will accept both / 
and — as switch characters (for ex- 
ample, the C compiler driver, CL, ac- 
cepts both).” 

Listing Two, page 59, is a program 
of Tony’s that sets or examines the 
switch character, depending on 
whether a new character is specified 
on the command line: 


switch—Prints the current switch 
character. 

switch c—Sets the switch character 
to C. 


I moved Tony's program over to 
the Lattice compiler so that I could 
test it. If youre working with the CI- 
C86 compiler, you'll want to use 
sysint21( ) rather than intdos( ). Func- 
tion 0x37 is still an undocumented 
function so you can expect it to disap- 
pear at the whim of Microsoft, but for 
now the program should be useful. 


Dr. Dobb’s Journal, April 1986 


“Ready for an adventurous challenge? 
A/c ates Carl ii bere elem (alts 
doesn’t horse around.” 


COMPUSERVE 


You never know 
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see your nearest computer dealer. 
Suggested retail price $39.95. 


To request our free brochure Peel ce (Us direct, 
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C-Plus (For iam Microsott c) 

Tu rbo-Plus (For Turbo-Pascal) 
Pascal-Plus (For IBM-Microsoft Pascal) 


Compile 50 times faster. 


Plus Software is a library of procedures 
crafted in assembly language and designed 
to enhance Turbo-Pascal™ and IBM- 
Microsoft Pascal. No royalties are required 
for applications developed using Plus 
Software. These procedures are extremely 
fast and combine automatically with your 
programs. The benefit to you is faster 
development and compilation time and 
smaller, faster application programs. 
Features include: 
Multiple input/output field display 
map generation with edit masks 
"Instant text write "Snow removal 
‘Instant attribute °*RamWindow 
write (the fancy " Advanced 
cursor maker) keyboard control 
* Display chunk "Multiple screen 


retrieval snapshots 
* Graphics text and restores 


write (any size "File handle 1/O 

“ i Variable Length 
a p-u any ime a 

reference guide oak papel gh 


Pull Down "Pe; 
Menu Maker Printed manual 
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Screen Genie 


The ultimate 

screen editor 

at any price. 

® Creates and edits screens 


for programmers and 
non-programmers 


® Resident pop-up facility 
for creating your 
Own pop-ups 

® Full typematic and cursor 


control. Insert, overwrite in 


two dimensions 


® Paints/unpaints, draws/ 
undraws In any direction. 


Easy to use selection menus 


® Copy/move lines or window 
pieces with forgiving 
adjustment feature. 

°® Save and edit any size 
windows. 

e SCREEN GRABBER lets you 
save and edit any screen 
from any application 

°® CREATES FIELDS AND 
GENERATES CODE FOR 
PROGRAMMERS 

® Creates screens as 
executable files for 
non-programmers 

° Creates load files (for any 
language), .obj files, .com 
external procedures 

° Non-copy protected 


(Requires IBM PC 
gs and Compatibles) 


Turbo Spawn lets you execute any size 


CCrEs! 
(Continued from page 21) 


A Bug inmk anda 

Touch Utility 

A make utility (called mk) was printed 
in this column in August 1985. Allen 
Orcutt writes: “I discovered that mk 
made an unnecessary null system call 
as the last action of every make. The 
problem is the for loop on line 364, 
which terminates on finding a null 
pointer at “*linev. I changed it to termi- 
nate on finding a null string at **linev. 


for( linev = 
snode do— >this; “linev; linev+ + ) 


is the new line 364.” 

Michael Yam sent in a useful ad- 
junct to the make utility, a version of 
the Unix utility touch (Listing Three, 
page 59). Touch changes the last-mod- 
ified date and time fields to the cur- 
rent date and time. It’s useful for forc- 
ing make to behave in certain ways. 
For example, if you change nothing 
but comments in a group of .c files, 
you can touch all the .obj files to stop 
make from remaking the entire pro- 
gram. If you touch a nonexistent file, 
the file is created with zero length. 

Michael writes: ‘Add a nice touch 
to your make utility. Note that in- 
stead of calling DOS functions to actu- 
ally modify a file’s date and time 
stamp, I indirectly let MS DOS do the 
job by opening, modifying, and clos- 
ing the file.” 

The “modification” is really a NOP. 
Michael reads the first byte from the 
file and then writes it back to the 
same place. 
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program including another Turbo Pascal 
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Current program and continue with next 
instruction. Breaks the 64K barrier. 


Availability 

The redirection routines are part of 
the shell that DDJ is currently ship- 
ping (see advertisement, page 122). 
All other code is available on Compu- 
Serve (type: go DDJ). DDJ 
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The Boca Raton 
Inference Engine 


by Robert Jay Brown Ill 


ROLOG has been 
p gaining in pop- 
ularity recent- 


ly partly because of 
the Japanese fifth gen- 
eration project, in 
which PROLOG has 
been chosen as the pri- 
mary development language. It’s quite different from 
LISP, the other language frequently used in artificial intel- 
ligence research, because it is knowledge-oriented rather 
than procedure-oriented. LISP and PROLOG each have cer- 
tain advantages for knowledge processing applications. 
In this article, I introduce you to PROLOG programming, 
LISP programming, and the underlying mechanisms in- 
volved in a PROLOG interpreter. A working micro-PROLOG 
program demonstrates how logic programming can be 
used for database applications. (Micro-PROLOG is a prod- 
uct of Logic Programming Associates, London.) A work- 
ing muLISP program is used to explain the factoring, reso- 
lution, and paramodulation rules of inference. (MULISP is 
a trademark of The Soft Warehouse, Honolulu.) I also de- 
scribe a refinement of the resolution algorithm that 
could form the basis for a viable PROLOG interpreter. I 
explain the PROLOG deduction cycle and backtracking 
and the concept of a programming environment. 


What Are Rules of Inference? 
In the process of proving a thing to be correct or incor- 
rect, we normally use what is popularly called logic. In 
everyday parlance, the argument used to prove a point is 
not always a valid argument: sometimes incorrect rea- 
soning is employed. If the reasoning is incorrect, then the 
conclusion could be incorrect. It is the goal of mathemati- 
cal proofs and computer programs to produce correct 
results. 

Aristotle was the first person to attempt a formaliza- 
tion of logic, giving a set of 19 rules that could be used to 
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A rule of inference is a procedure 
that, when applied to a set of 


_ hypotheses, produces a 
conclusion that logically follows. 








formulate a correct, or 
proper, argument. 
These rules are called 
syllogisms. The fol- 
lowing example is tak- 
en from A. Bundy’s 
The Computer Model- 
. ling of Mathematical 
Reasoning.! 


Consider the argument: 

All Ancient Greeks were perfect. 

Aristotle was an Ancient Greek. 

Therefore, Aristotle was perfect. 
This is an instance of the argument: 

All Ps were Q. 

X was a P. 

Therefore, X was Q. 
The above syllogism using P, O, and X is the Darii 
syllogism. When we substitute “Ancient Greeks” for 
the variable P, “perfect” for the variable O, and “Ar- 
istotle” for the variable X, we arrive at the first 
argument. 


It is important to note that the validity of the syllogism 
alone is insufficient to guarantee the truth of the conclu- 
sion: the hypotheses must also be true. A syllogism, such 
as one of the 19 Aristotelian syllogisms, is said to be a rule 
of inference. In this article I concentrate on the rules of 
inference rather than on the assumptions about which 
the inferences will be made. 

Aristotle's 19 syllogisms do not exhaust all possible ar- 
gument forms, although until George Boole invented 
propositional logic in the nineteenth century it was be- 
lieved that they did. Propositional logic allows for the 
construction of complex hypotheses by using the connec- 
tives AND, OR, and NOT. But propositional logic does not 
allow for the kinds of substitution that Aristotelian logic 
permits. It took Gottlieb Frege to invent predicate logic, 
which combines the best of both worlds. 
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Thus, when we take the two statements “All Ancient 
Greeks were perfect” and “Aristotle was an Ancient 
Greek,” we see that they can fit the form of the Darii 
syllogism if we set P=‘‘Ancient Greeks, O= “perfect,” 
and X= “Aristotle.” The conclusion, ‘“Therefore, Aristotle 
was perfect” follows by substitution into “Therefore, X 
was Q.” Thus we can arrive at a working definition of a 
rule of inference: a rule of inference is a procedure that, 
when applied to a set of hypotheses, produces a conclu- 
sion that logically follows from them. 

The process of finding substitutions like the above is 
called unification, and the unification algorithm is at the 
heart of all mechanized rules of inference. Given an algo- 
rithm for unification, the implementation of a mecha- 
nized rule of inference is mainly a problem of control. 

The implementation of an inference engine is the auto- 
matic application of a set of inference rules to prove a 
theorem. The purpose of such an inference engine may 
not be readily apparent, but because it will find substitu- 
tions for the variables, finding a proof can find the substi- 
tutions that make a statement true, and these substitu- 
tions can be the real answers we are looking for. 


Predicate Logic 
A logic programming system is the conventional way to 
use an inference engine. The PROLOG language is another 
way. (See page 36.) In both cases, the input to the pro- 
gramming system is expressed in clauses. In the case of 
PROLOG, the clauses are of a special form: Horn clauses, 
which are clauses in disjunctive normal form that have 
only one positive literal. They are the basic statements of 
PROLOG. 

The example on page 36 and Listing One (page 62) uses 


the Simple syntax option for micro-PROLOG. Listing - 


Three (page 66) shows the same family tree example as 
Listing One (the order is different, but the clauses are the 
same), but it is in the standard micro-PROLOG syntax, 
which is very much the same as the syntax of LISP. (See 
page 37.) Each predicate is represented as a set of LISP-like 
lists, one for each Horn clause. The form for a predicate 
reference (called an atom) is: 


(<predicate-name> <parameter-1> 
_.. <parameter-n> ) 


where each of the parameters are constants, variables, or 
Skolem functions. Skolem functions are devices used to 
express the idea of an existentially quantified variable. 
This is a case in which we are trying to express the idea 
that there is at least one instance that satisfies the clause. 
Normally in logic programming or PROLOG, the variables 
are universally quantified, which means that the clause 
must be true for all possible instances of the variable. 
The form of a Horn clause is: 


((<head-literal>) (<literal-1>)... (<literal-n>)) 


where each of the literals is a predicate reference. The 
head-literal is the part that was to the left of the if in the 
simple syntax, and the other literals were to the right, 
joined by and. 

The clause: 
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x child-of y if y father-of x 
would be written in the normal syntax as: 
((child-of x y) (< father-of y x)) 


Some other PROLOGs (such as Waterloo PROLOG)? use a 
syntax like: 


child-of(x,y) —— father-ofy,x) 


where the < is supposed to look like the arrow that 
mathematicians use for implication. It is pronounced 
‘Gf,’ just like the simple syntax version. 

Standard first-order predicate calculus uses several dif- 
ferent forms, but the one I use here is disjunctive normal 
form. In this form of predicate logic, all the predicates in 
a clause are connected by the OR operator |, and all the 
clauses are implicitly ANDed together. Each predicate to- 
gether with its arguments is an atom, and an atom togeth- 
er with an optional logical negation, or NOT operator~, is 
called a literal. Writing the above example in disjunctive 
normal form, we get: 


child-of(x,y)| ~father-ofly,x) 


This clause must be true, so if it is true that y is the father 
of x, then father-ofly,x) is true, making ~father-ofly,x) 
false. The only way that the clause can be true if all its 
literals except one are false is for the remaining one to be 
true. Thus, child-of{x,y ) is forced to be true. 

In clausal form logic, the literals of a clause are ORed 
together and the clauses are ANDed together. The result 
must be true for the clauses to be consistent. If we take a 
set of clauses known to be consistent and add one more 
clause and the inference engine finds the resultant set of 
clauses to be inconsistent, then we have refuted that last 
clause. Thus, to prove something, we add its denial to the 
set of clauses and turn the inference engine loose on it. If 
the inference engine finds the augmented clause set to be 
inconsistent, then we have refuted the denial of the test 
clause, thereby proving it. 

In micro-PROLOG, the first literal, or head-literal, is the 
only positive literal in the clause, and the remaining liter- 
als all have negative signs. In generalized clause form log- 
ic, clauses can have all positive literals, all negative liter- 
als, or any mix of the two. Because (x/y)=(y /x), order is 
not important to the logic. Likewise, because a&b=bé&a, 
the ordering of clauses is not important either. In PRO- 
LOG, however, the ordering of the clauses can have a pro- 
found effect on the execution time of a problem and in 
some cases can cause the program to fail to terminate 
altogether. Furthermore, some of the nonlogical, proce- 
dural aspects of practical PROLOGs force an explicit de- 
pendence on clause order. 


The Unification Algorithm 

The process of finding a substitution that will make two 
clauses the same is called unification. The result of a uni- 
fication is a substitution or binding environment such 
that when each clause is realized in that environment, 
the two clauses will be the same. I stated earlier that uni- 
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fication is at the heart of all of the inference rules. I will 
now describe how unification works. 

A binding environment is a list of pairs, where the first 
element in each pair is changed to the second element in 
its pair wherever it occurs in the two expressions being 
unified. For example, take the substitution, or binding 
environment change x into y, and realize the expression 
fix) /~g(x%y) in this environment. This gives the expres- 
sion fly)/ ~g(yy) as the result. As a more difficult exam- 
ple, take the substitution change x into fly,z) and change z 
into p(a,g(b)), then realize the expression g(x) /q(x,yz) in 
this environment. This gives the expression: 


gifly,z)) | q(fly,z),y,pla,g(b))) 


which further reduces, by applying the same substitu- 
tion again, to: 


gifly,pla,g(b))) | q(fypla,g(b))), y;pla,g(b))) 


The substitution is performed repeatedly until no further 
substitution can take place. This is sometimes called the 
recursive realization of an expression under an environ- 
ment. You can see that there are no real limits on the 
complexity of the substitutions that can take place. 

One situation that must be prohibited is the case where 
a subexpression of the source term in a substitution oc- 
curs in the substituted term. For instance, consider the 
substitution change x into f(x) when applied to the ex- 
pression x. After the first application of the substitution, 
we get fx), but we can apply the substitution again to 
produce ftf(x)) and again to produce fUf{ftx))). This pro- 
cess will continue to produce a sequence of 
SFG... f0)))... ) that goes on forever. When this situa- 
tion arises, the realization process fails to terminate; 
therefore, we prohibit the application of a substitution of 
this sort. This occurs situation is not always so easy to 
detect. For instance, the substitution: 


change x to y and change y to z and change z to x 


is likewise prohibited. The offending substitution may be 
deeply nested in the expressions being substituted into, 
to, and from. | 

The problem of unification is to find a substitution that 
makes two expressions the same when they are realized 
under that substitution. We can only unify expressions 
by substituting values for variables; we cannot substitute 
to change the value of something that is not a variable. 
For now, we will use the letters x, y, and z to stand for 
variables. For instance, the expressions fx) and fla) may 
be unified by the substitution change x to a, where x isa 
variable and a is a constant. It is equally valid to substitute 
one variable for another, as f{x) and fly) may be unified 
by the substitution change x to y. 

Things can certainly get more complicated. Unify: 


f(x,y) | gla,z) and gla,b)| fiz,c) 
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We can do this with the substitution: 
change x to z, y toc, and ztob 


Of course, not every expression can be unified with ev- 
ery other expression. If the numbers of terms in the ex- 
pression do not match, no substitution in the world can 
unify them. For instance, it is not possible to unify the 
expressions f[x) and fly) /f(z), even though the substitu- 
tion change x to y and change y to z will make them alge- 
braically equal because unification does not know the 
rule (x /x) = x. Likewise, if the predicate names do not 
match, unification is impossible, as in f{x) and g(x). A con- 
stant cannot be unified with anything except a variable 
or itself, making the unification of fla) and f(b) impossi- 
ble; however, a variable can be unified with an arbitrari- 
ly complex expression, as in: 


f(x) and f(gla,p(z),y)) 
which results in the substitution: 
change x to g(a,p(z),y) 


Unification must produce the binding environment 
that defines the most general substitution, or unifier; 
when the two input expressions are realized under it, the 
unifier will unify these two expressions, making them 
the same expression. The most general unifier, or MGU, 
will not make a substitution unless it needs to. For exam- 
ple, unifying fTx,y) and fx,7) should produce the substi- 
tution change y to 7. The two expressions could be unified 
with the substitution: 


change y to 7 and change x to FOO 

but that would not be as general as leaving x as a variable, 
because the expressions will unify without substituting 
any value for x. 

In the following LISP implementation of unification, I 
represent a variable as any LISP-atom that begins with an 
asterisk. Thus: 

*x, *X, *THIS_IS_A_LONG_VARIABLE_NAME 
and even * alone constitute valid variables. 

A binding environment is represented by a list of dot- 
ted pairs. The substitution: 
change x to y and change z to f(x) 
is represented by the list ((x.y) (z.(f x))), which will be 
printed by the LIsP interpreter as ((x.y) (z f-x)). 

A clause is likewise represented by a list. The clause: 
f(x) | ~gly,pla,z)) | q(b,z) 
is represented by the list: 


(fx)(~ (gly (paz) (qb z)) 


Listing Four (page 66) defines a set of muLISP functions, 
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pie charts, marked point graphs, line 
charts, and XY charts. 
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nearest dealer, or for more informa- 
tion, call the Ashton-Tate Publishing 
Group at 800-437-4329, Ext. 242. 
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including UNIFY, a simple unification algorithm, accord- 
ing to J. A. Robinson.’ UNIFY calls EQUATE, which calls 
UNIFY, and so on, in a sort of ping-pong recursion. ULT 
finds the ultimate successor to a variable by first check- 
ing if that variable is defined in the environment. If it is, 
then its ultimate successor is the ultimate successor to its 
immediate successor, which is computed by IMM. IMM 
checks to see if the environment is NIL; if not, it checks if 
the variable is defined in the first binding pair in the en- 
vironment. If the variable is not bound in the first pair on 
the environment, then IMM calls itself recursively to see 
if the variable is bound in any of the rest of the pairs in 
the environment. 

EQUATE extends the environment by adding substitu- 
tions to it to make the two expressions the same. If the 
two expressions already are the same, then EQUATE re- 
turns the present environment. If the first expression is a 
variable and this variable does not occur in the second 
expression under the present environment, then the en- 
vironment is extended by CONSing a new substitution 
pair to the front of it. If the variable does occur in the 
second expression, as indicated by OCCURS, then the uni- 
fication is impossible, and the value IMPOSSIBLE is re- 
turned instead of a binding environment. 

The occurs check is not present in PROLOG because it 
eats up a lot of computer time, but strictly speaking it is 
necessary to prevent the interpreter from getting caught 
up in a recursive black hole from which it will never 
return. In the words of the ‘Adventure’ program, 
“... you are likely to fall into a pit” if the occurs check is 
absent. In PROLOG, the programmer must ensure that an 
occurs situation never occurs. This is usually not too diffi- 
cult in practice, but in order to prove that an inference 
rule works we need to know that the unification algo- 
rithm always works, and it only works all the time when 
it performs the occurs check. Without the check, the al- 
gorithm could fail to terminate, which would thereby 
violate one of the requirements of an algorithm. 

The RECREAL (recursive realization) function instanti- 
ates the variables in an expression by performing the 
substitutions indicated by the environment. It does this 
by calling ULT for each variable in the expression, tra- 
versing the expression by recursive calls to itself, and 
building the resultant expression as it goes. 

The VARIABLEP function is a predicate that returns T or 
NIL, depending on whether its argument is a variable. For 
our sample program in Listing Four, a variable is any 
atom whose print name starts with an asterisk (*). This is 
in accord with Waterloo PROLOG.‘ 

In Listing Five (page 68) we see a sample run of UNIFY 
and RECREAL. The first example defines two clauses, C1 
and C2, and attempts to unify them by a call to UNIFY. 
UNIFY returns IMPOSSIBLE to indicate that the expressions 
cannot be unified. The recursive realizations of the two 
expressions are then the original expressions themselves. 
The second example defines a new C2 and unifies it with 
the old C1, returning the environment (( *X . a)). This envi- 
ronment shows that the value a should be substituted for 
the variable *x to unify the two expressions. Notice that 
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the recursive realization of the two input clauses is iden- 
tical. 

In the third example, UNIFY returns an environment 
consisting of ((*x g *y)), which is the same as 
((*x.(g *y))). This shows that the variable *x must be in- 
stantiated with the value (g *y) to make the two expres- 
sions the same. The fourth example shows a case in 
which the occurs check saves us. The fifth example 
shows a more complicated set of expressions. Note that 
UNIFY will work on arbitrarily complex expressions, lim- 
ited only by the amount of memory available. 


The Resolution Principle 

Until recently, all formal rules of inference have been 
oriented toward human beings. An argument needed to 
be not only logically correct but also humanly compre- 
hensible, because in a mathematical proof each step 
needed to be undisputable even though the conclusion 
might not be expected at all from the hypothesis. Such a 
proof might involve a great many deductive steps. When 
using a computer to deduce conclusions, one may be in- 
terested only in the results, not the details of each step 
along the way. In a 1965 paper describing a new rule of 
inference, J. A. Robinson called this new rule the resolu- 
tion principle.’ Robinson’s resolution principle is unique 
in that it is a complete rule of inference: no other rule is 
needed to reach any possible conclusion from a given set 
of facts. In actuality, an auxiliary rule called factoring is 
needed for certain cases, but resolution together with 
factoring forms a complete deductive apparatus. 

The principle of resolution is really quite simple; the 
proof that it always works is difficult. See Robinson’s 
aforementioned paper for a proof of the soundness and 
completeness of the resolution principle. Referring to 
Listing Four, we see the function BINRES. This function 
performs binary resolution on its arguments CL1 and 
CL2, resolving on the literals at positions N1 and N2, re- 
spectively. Recall that a literal is a predicate reference 
together with an optional negation sign. If this negation is 
present, we say that the sign of the literal is negative; 
otherwise, its sign is positive. 

To resolve the two clauses CL1 and CL2 on their literals 
at positions N71 and N2, perform the following. 


1. Change the names of all the variables in one of the 
clauses so that the two clauses have no variables in com- 
mon. This process is called taking variants. 

2. If the signs of the two literals are the same, then the 
resolution cannot be performed, so return IMPOSSIBLE. 

3. Otherwise, unify the two literals, without their signs. If 
the unification failed the resolution fails, so return IMPOS- 
SIBLE. 

4. Otherwise, delete the two literals from their respective 
clauses and return the OR of the resulting clauses. This is 
the resolvent of the clauses CL1 and CL2 about the literals 
N1 and N2. 


You can see that the resolvent contains two fewer clauses 
than the total between the two input clauses. If we can 
repeatedly cancel out literals until one of our resolvents 
is NIL, the empty clause, then we have found a contradic- 
tion. If we have added the denial of the thing we wish to 
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prove to a consistent knowledge base and we can resolve 
to produce the NIL clause, then we have proved what we 
set out to prove. . 

Consider the following two clauses: 
f(x,a) | g(x,y) | ~fly,b) 
and: 
p(x) | ~gla,x) 
We wish to form a resolvent between these two clauses. 
We can unify them about the second literal in each 
clause. Unifying: 
g(x,y) and g(a,x) 
gives the MGU: 


change x toa and change y to x 


Now we can delete the two unified clauses from the 
union of the two original clauses to form: 


f(x,a) | ~fly,b) | p(x) 


But we are not finished yet; we must apply the substitu- 
tion to the above clause to get the resolvent: 


f(a,a) | ~f(a,b) | pla) 


The Factoring Operation 

I mentioned earlier that resolution was only complete if 
it included factoring. The following example is from 
R. Kowalski’s Logic for Problem Solving, § with the nota- 
tion changed to fit our conventions: 


s(x) | sly) 
~s(u) | ~s(v) 


The two clauses are inconsistent because they have 
instances: 

s(x) | s(x) 
~s(u) | s(u) 
which, after removal of duplicate atoms, are direct- 
ly contradictory: 


s(x) 
~s(u) 


This is true because we can unify these last two clauses 
by the substitution: 


change x tou 
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to get: 


s(u) 
~s(u) 


Because a statement cannot be both true and false at the 
same time, we have a contradiction. 


















However, no matter how many times resolution is 
applied to [the two original clauses] and their de- 
scendants, every resolvent contains exactly two at- 
oms, and consequently no resolvent is the empty 
clause (which contains no atoms). 


Factoring produces a new clause from an old clause by 
unifying two literals of like sign from that clause (without 
taking variants) and then performing the substitution 
and deleting one of the unified literals. See Listing Six 
(page 68), the first example, to see our factoring algorithm 
at work. 

PROLOG does not need factoring because resolution is 
complete without factoring for sets of Horn clauses. A 
Horn clause is a clause with only one positive literal. In 
PROLOG this is the first literal,;which is the consequent of 
the implication.Thus in the PROLOG clause x if yand Z, x is 
the positive literal, and y and z are negative literals. If we 
rewrite the PROLOG,clause inclause form logic, we have 
x/~y/~z. If y and z are both true, then ~ y and ~ z are both 





false, so ~ y/~z is also false. The only way the clause can 
be satisfied is for x to be true, which is the desired effect. 

One theorem states that resolution is complete for 
Horn clauses without factoring. Another theorem is that 
any problem that can be expressed in clause form logic 
can be expressed in Horn clauses,’ and yet another theo- 
rem is that clause form logic (that is, first-order predicate 
calculus) is a complete basis for computation. PROLOG 
uses resolution on Horn clauses, which means that a PRO- 
LOG program is capable of computing anything that any 
other program is capable of computing. 









The Inference Rule of Paramodulation 

Even though resolution alone is sufficient to do anything 
we can do with any other programming language, it is 
not always efficient. One area in which efficiency often 
suffers is the processing of equality relations. An equality 
relation has a number of properties, such as symmetry, 
reflexivity, and transitivity. Each of these must be ex- 
pressed as Horn clauses in order for a resolution infer- 
ence engine to process equality relations. An inference 
rule known as paramodulation builds these properties of 
equality directly into the inference engine. See G. Robin- 
son and L. Wos'’s discussion of paramodulation.’ The par- 
amodulation refutation required 47 steps, and the pure 
resolution refutation required 136 steps. The process of 
paramodulation consists of the steps enumerated in the 
following list: 
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1. Take two clauses. Call them FROM and INTO. 

2. Take variants so that the clauses have no variables in 
common. 

3. Search the FROM clause to find a positive equality rela- 
tion. 

4. Call one side of the equality relation SEL, the selection 
term, and call the other side SUB, the substitution term. 
5. Unify SEL with a literal in the INTO clause. If this cannot 
be done, swap SEL with SUB and try this step again. If it 
still cannot be done, then unification fails, so paramodu- 
lation fails. 

6. Instantiate both the FROM and INTO clauses with the 
substitution obtained from the above unification. 

7. Replace the unified term in the INTO clause with the 
SUB term. 

8. Delete the equality literal from the FROM clause. 

9. OR the new FROM and INTO clauses together. This result 
is the paramodulant of the original two clauses. 


If the equality relation cannot be found or if the unifica- 
tion cannot be performed, then no paramodulant exists. 
See Listing Four for a LISP implementation of paramodu- 
lation; see Listing Six for an example of its use. 


The Boyer-Moore Structure-Sharing 
Resolution Algorithm 

The resolution algorithm given above is operational and 
could be used as the basis for an experimental version of 
PROLOG, but it is terribly inefficient. J. A. Robinson de- 
scribed the resolution principle in 1965, but the first PRO- 
LOG interpreter did not appear until 1973. This was pri- 
marily because in 1972, R. S. Boyer and J. S. Moore 
published the first efficient implementation of a resolu- 
tion algorithm.® Their algorithm streamlines the process 
of taking variants and eliminates the copying of each 
clause every time it is resolved upon. 

Whereas our earlier resolution algorithm used a vari- 
ant-taking process that prefixed asterisks onto the name 
of a variable until it was unique, copying the clause as it 
did so, the Boyer-Moore algorithm uses a method known 
as indexing, which totally eliminates all the copying and 
uses simple arithmetic to form an index that is associated 
with each variable. In this implementation, variables 
start with a lowercase letter. Appending a prime is a con- 
ventional way of differentiating two variables of like 
name, such as x and x”. The Boyer-Moore index can be 
thought of as a count of the primes appended to a name 
to make it unique. 

The advantage of the indexing system is that the new 
index needed to make a variable unique can be formed 
by a simple addition operation. Each variable is com- 
posed of a name anda corresponding index. The index is 
a positive integer. Instead of copying a variant clause 
while substituting the new variables, the structure-shar- 
ing algorithm extends the binding environment to keep 
track of the variants. 

Listing Seven, (page 69) gives a muLISP implementation 
of the Boyer-Moore structure-sharing resolution algo- 
rithm. Listing 8 (page 70) gives a sample run of the algo- 
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rithm. 
The algorithm uses a septuple, or data structure com- 
posed of seven elements. They are: 


1. LPAR: The left parent. 

2. LLIT#: The left literal number. 

3. RPAR: The right parent. 

4. RLIT#: The right literal number. 

5. NLITS: The number of literals. 

6. MAXNDX: The maximum index. 

7. BINDINGS: The extension to the binding environment 


added at this level. 


This septuple represents a clause, either as a clause origi- 
nally in the knowledge base or produced as a resolvent 
by the algorithm. The function MAKECL takes a clause as 
we would type at the keyboard and generates a septuple 
that is a list composed of the seven elements in order. The 
clause is pointed to by LPAR; LLIT# is zero; RPAR is NIL; 
RLIT# is zero; NLITS is the number of members (returned 
by the function NMEMS) in the clause; MAXNDX is one; 
and BINDINGS is NIL. This is the form of an input record. 
An input record is recognized by the predicate function 
INRECP. 

When we form a resolvent, we generate a new septu- 
ple, where RPAR and LPAR point to old septuples. LLIT# 
and RLIT¢ are the numbers of the literals resolved upon in 
the septuples pointed to by RPAR and LPAR. NLITS is the 
number of literals in this clause, which is two less than 
the sum of the NLITS cells in the septuples pointed to by 
LPAR and RPAR. MAXNDxX is the sum of the MAXNDX cells 
in each of the parent clauses pointed to by LPAR and 
RPAR. 

If we associate MAXNDX with each of the variables in 
the right parent of this new clause, we are guaranteed 
that all of its variables are unique as compared to the left 
parent. The function GETLIT retrieves a literal from a tree 
of these septuples and keeps track of the index and sign 
of the literal, returning them in the free variables SIGNG 
and INDEXG along with the literal itself in the free vari- 
able LITG. (A free variable is a variable that is not local to 
the function in which it is used. It is somewhat analogous 
to a global variable in conventional programming lan- 
guages.) 

The Boyer-Moore structure-sharing unification algo- 
rithm works by returning T or NIL to indicate whether 
the unification was possible and extending the binding 
environment in the free variable BNDEV. BNDEV is the 
septuple in which the resolvent will eventually be 
stored. The algorithm is as follows. 


1. If the two terms and the two indexes are equal, then 
return T without extending the environment. 

2. If TERM1 is a variable bound in the current environ- 
ment, then substitute what it is bound to and try to unify 
the result with TERM2. 

3. If the occurs check finds a bottomless pit, then return 
NIL. 

4. Otherwise, force a unification by extending the envi- 
ronment and return T. 

5. If TERM2 is a variable, then swap TERM1,INDEX1 with 
TERM2,INDEX2 and try to unify that. 
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6. Otherwise, try to unify the CAR of TERM1,INDEX1 with 
the CAR of TERM2,INDEX2. If the unification fails, return 
NIL. 

7. Otherwise, return the result of unifying the CDRs of 
TERM1,INDEX1 and TERM2,INDEX2. 


The comments in Listing Seven should make the code 
fairly easy to follow, although this is not a simple algo- 
rithm. The occurs check would be eliminated in a PRO- 
LOG implementation. 

The Boyer-Moore algorithm could be the basis for a 
PROLOG implementation, but a viable PROLOG interpreter 
should not be written in a language such as LISP, which is 
interpretive itself. The structure-sharing resolution algo- 
rithm, rewritten in a portable, compiled, higher-level 
language such as C or Pascal, could form the basis for a 
practical inference engine in a Prolog i interpreter. 

There is also an alternative to structure sharing: struc- 
ture copying, also called non-structure sharing.!° Micro- 
PROLOG uses this method, which uses an indexing 
scheme for the taking of variants but does not share 
structure as does the Boyer-Moore algorithm." Some 
claim that the structure-copying method can be superior 
to structure sharing on machines with a short word 
length, such as microcomputers. It remains to be seen 
which of these two methods is best for larger micros ad- 
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dress spaces of a megabyte and more. 

Some PROLOGs, including micro-PROLOG, use special 
techniques to allow recursion to be as efficient as itera- 
tion, which is not available in PROLOG. These techniques 
are applicable in deterministic cases of recursion, such as 
was encountered in our first factorial algorithm, and are 
called tail recursion optimization. M. Bruynooghe dis- 
cusses the implementation of these methods in Logic Pro- 
gramming.’* Another related technique, success pop- 
ping, is discussed in T. Bruynooghe’s essay and in F. G. 
McCabe and K. L. Clark’s Micro-PROLOG 3.0 Programmer's 
Reference Manual." 

To make a complete PROLOG system, however, re- 
quires a great deal more. First, resolution alone does not 
make an inference engine. A strategy is needed to deter- 
mine what to resolve next. This strategy, called the 
search strategy, can be a breadth-first, depth-first, or heu- 
ristically guided search; the depth-first method is em- 
ployed in PROLOG. The inference engine of PROLOG takes 
the query clause and resolves it with the first clause in 
the knowledge base that matches it in its head literal. 
Remember that the head literal is the only literal of posi- 
tive sign. The query clause is the only clause with no 
positive literals. Therefore, PROLOG only needs to look at 
the head literals to try a resolution. 

A practical PROLOG will have an efficient database re- 
trieval system that allows it to quickly find candidate 
clauses that match a given literal with their head literal. 
Some PROLOGs even go so far as to index the knowledge 
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base to the first two terms of the head literal, which 
greatly reduces the time to find a matching clause or de- 
termine that no match is possible. When a potential 
match is found, the two literals are unified, but the resol- 
vent is not placed into the knowledge base yet. PROLOG 
then steps through the negative literals in the clause just 
resolved with, resolving each of them in turn with other 
clauses in the knowledge base. Each of these clauses is 
stepped through in similar fashion until the NIL resolvent 
is produced. Then execution continues at the previous 
level. 

If a resolvent fails, PROLOG backtracks to the nearest 
choice point where it could have chosen a different Horn 
clause to resolve with and takes that branch of the search 
tree instead. Only after exploring the entire search tree 
and failing everywhere does PROLOG report failure. If 
PROLOG can deduce the NIL clause from the query clause 
and the knowledge base and if the knowledge base is 
consistent, the query clause is false. But the query clause 
is a negative clause, so the query condition is true. 

When the NIL clause is deduced, the binding environ- 
ment that produced it is available, and the substitutions 
provide additional information. In the family tree exam- 
ple, these substitutions are the answers we were looking 
for. The ‘‘which” predicate of the simple extension to 
micro-PROLOG continues after NIL is deduced to find all 
the answers rather than stopping on the first one. 

Even after the search strategy and the database retriev- 
al mechanisms are provided for, we would have a PRO- 
LOG interpreter, but we would not have a complete PRO- 
LOG system. A complete artificial intelligence program 
development system needs, as a bare minimum, a good 
interactive program editor and debugger, including a 
trace facility. These functions taken collectively form the 
programming environment. Also, built-in functions must 
be provided to perform arithmetic, input-output opera- 
tions, list construction and decomposition, control, addi- 
tions to and deletions from the knowledge base, and so 
on. The micro-PROLOG system provides all of these, and 
the programming environment is written in micro-PRO- 
LOG itself. 
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What Is an Inference Engine? 





An Example Using micro-PROLOG 

Consider the micro-PROLOG program given in Listing 
One. This is a simple relational (pun intended!) database 
system to keep track of all of my daughter's relations in 
the form of a family tree. Examination of the code reveals 
that the first section is a series of statements of the form 
x father-of y. This section is followed by a similar series of 
statements of the form x mother-of y. 

_ Together these two sections constitute the knowledge 
base for the family tree. Statements of this form are 
called assertions or facts. Most of the father-of and moth- 
er-of relations are free of any variables; these are called 
ground clauses; however, a few of these relations are of 
the form <statement-1> if <statement-2> and typically 
contain variables. These are the conditional statements of 
PROLOG. The general form of a PROLOG statement, or 
clause, is: 


<statement-1> if <statement-2> and ... <statement-n> 


The procedures of PROLOG are called predicates, just 
like the procedures of FORTH are called words. A PROLOG 
clause is then more properly defined as: 


<predicate-1> if <predicate-2> and ... <predicate-n> 


| The definition of a PROLOG predicate is either built into 
the interpreter or is defined by the applications logic pro- 
grammer as a set of clauses, all having the same relation 
name, or predicate name. Thus, in the definition of moth- 
er-of, we find: 


lilian-givens mother-of x if 
paul-sewall-jr father-of x 


This clause, together with all the ground assertations for 
mother-of, comprises the definition of the mother-of 
predicate. It is an interesting characteristic of logic pro- 
gramming in general, and PROLOG in particular, that the 
distinction between program and data becomes very 
fuzzy. In our family tree, were it to be written using a 
conventional database package, we would have to repre- 
sent all father-of and mother-of relations as records in a 
father-of file and a mother-of file. These records would 
be data. If we wanted to write a procedure to handle the 
case of lilian-givens, we would probably discard the idea 
as impractical: the mother-of file contains pure data; if 
we needed to write a routine to compute something, the 
routine would be pure code. Never the twain shall meet! 
But in PROLOG, we can easily intermix data and program 
to do the job. We can use whichever approach seems 
most natural. In PROLOG, data are retrieved by unifica- 
tion; hence, we execute the data (or perhaps search the 
code) to find a match with the search pattern, and it mat- 
ters not whether the data is pure data, pure code, or a 
mixture of both. 


Looking at Listing Two (page 62), which shows a series 
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of query operations performed against the family tree, 
notice the form of the query: 


which( <answer-pattern> <query-pattern> ) 


This is micro-PROLOG's query format. (Other interpret- 
ers differ in external details.) In the example, the answer 
pattern is always a single variable, but micro-PROLOG al- 
lows for arbitrarily complex answer patterns. For the first 
query, the inference engine attempts to find a value for x 
that will make the relation x father-of robert-brown-iii 
true. It finds when x = robert-brown-jr, the query pattern 
is true, so it displays this value as an answer. As it happens, 
I have only one father, so there are no more answers. 

The next query illustrates another beautiful aspect of 
PROLOG: a procedure can be run in reverse, so to speak! 
The first example used a variable for the father, but this 
example uses a variable for the child. Again, because I 
have only one child, PROLOG displays my daughter’s 
name and then says, “no more answers.”’ 

The next query uses an additional relation, parent-of, 
which is defined by the following two clauses: 


x parent-of y if 

x father-of y 
x parent-of y if 

x mother-of y 


This says that x is a parent of y if x is either the father or 
the mother of y. We have defined a new relation in terms 


of two other relations. In a conventional database envi- 


ronment, this would either require creating a parent-of 
file or a parent-of subroutine, but in PROLOG we needn't 
distinguish between the two cases. When we ask PROLOG: 


which (x x parent-of krystl-raquelle-brown) 
PROLOG responds with: 


Answer is robert-brown-iii 
Answer is darlene-breeden 
No (more) answers 


In this case, there was more than one instance of x such 
that x parent-of krystl-raquelle-brown was true, so more 
than one answer was returned. 

The descendant-of relation illustrates a simple case 
of recursion, where a predicate is defined in terms of 
itself: 


x descendant-of y if 
x Child-of y 
x descendant-of y if 
z Child-of y and 
x descendant-of z 


This relation will thread its way through the family 
tree and report all persons who are descendants of a gZiv- 
en person. Notice how the first clause does not call de- 
scendant-of recursively. This clause provides the termi- 
nation condition for the relation. If the first clause is not 
satisfied, the second clause will get us one step closer to 
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the case where it will be. Repeating via recursion will 
give us all the desired descendants. An ancestor-of rela- 


tion is similarly defined in the listing. © | 
Also in Listing Two are queries using the aunt-or-uncle- 
of and cousin-of relations that are defined in Listing One. 
Notice the simplicity of the definitions for these concepts, 
and compare the Prolog versions with the best you can 
do using a language such as BASIC, Pascal, or C. These 
languages are called procedural languages because they 
are used to describe a procedure to achieve a certain re- 
sult as a sequence of steps such as: open files; read data; 
compute a lot; print answer. Prolog, on the other hand, is 
a nondeterministic language. It does not describe the se- 
quence of steps needed to find an answer but merely 
describes the pattern that an answer must fit and lets the 
inference engine find one or more instantiations of the 
variables that satisfies the query pattern. : 





LISP, the Language of Artificial 
Intelligence : 
LISP is one of the oldest viable higher-level programming 
languages. It was revealed to the world by John McCar- 
thy in 1960. It was at that time a totally new way to look at 
programming. Even today it is still very different from 
conventional programming languages such as BASIC, Pas- 
cal, C, FORTRAN, COBOL, or even assembler. Only other AI 
languages such as POPLER and PROLOG have similar prop- 
erties. LISP is a functional language. A program consists of 
a set of function definitions, and the execution of a LISP 
program is the evaluation of a function. This is called the 
application of the function to its arguments, so LISP is 
called an applicative language. 

In LISP notation, which has been called Cambridge Pol- 
ish by some (distinct from the Reverse Polish of FORTH), 
the function F(x,yz) is written as (F x y 2). 

LISP is an interpretive language, and the following dia- 
log might occur between the interpreter and a program- 
mer just starting to experiment with it (The $ is the LISP 
prompt): 


$1 
1 


The programmer types 1. LISP responds that the evalua- 
tion of 1 is 1. 


$(PLUS 2 3) 
2 


Adding 2 and 3 to the function PLUS. LISP responds that 
the evaluation of the PLUS function with arguments of 2 


and 3 is 5. 


$(TIMES 4 7) 
28 


Multiply 4 and 7. LISP evaluates the expression and re- 
turns 28. 


$(PLUS 4 (TIMES 5 9)) 
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Getting a little braver, we try a nested expression, 
4+(5*9). LISP returns the expected result. 


$A 
A 


We see what the value of A is. muLISP’s auto-quoting 
gives an unassigned variable the value of its name. 


_ $(GETO A 2) 
2 


SETQ, is the assignment function. It returns the value of 
the second argument but has the side-effect of making 
the first argument take on that value also. LISP returns the 
value of 2. 


SA 
2 


Now we see what the value of A is. The SETO worked. 


$(SETQO A (PLUS 3 4)) 
‘ 


Perform A=3+4. LISP returns a value of 7. 


$A 
7 


What is the value of A? Just as expected. 
In LISP, the evaluation process can be inhibited by the 
use of the quote (’) macro, which expands as follows: 


‘x expands as (QUOTE x) 


The ’ is just a shorthand because QUOTE is used so much. 
The QUOTE function inhibits evaluation. Let's try it out: 


$(SETO A (PLUS 3 4)) 
(PLUS 3 4) 


Same as before but with the quote. LISP returns the 
_ quoted expression verbatim, with no evaluation. 


$A 
(PLUS 3 4) 


What is the value of A? It has the value of the quoted 
expression. 
We can force evaluation by the EVAL function: 


S(EVAL A) 
7 


Evaluate the value of the variable A. The evaluation of 
(PLUS 8 4) is 7. 
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Notice how LISP does not care whether a variable has 
numeric or alphabetic information in it. In fact, the type 
of a variable can change during the course of execution 
of a program. LISP, and AI languages in general, are dy- 
namically typed languages, which adds to both the 
power and beauty of LISP and a good many bugs in LISP 
programs. It is the responsibility of the programmer to be 
aware of what is in a variable when he or she uses it. 

Until now, we have been talking about variables in a 
rather loose sense. In LISP, everything is either an atom or 
a list. An atom is a thing such as A in the above examples. 
Atoms have several characteristics that are maintained 
by the LISP system. An atom has a print name, which is 
the character string that we use to refer to the atom. The 
print name for A is A. An atom also hasa value. The value 
of A above is changed several times by the use of SETQ 
and is displayed when we type the print name A at the 
interpreter prompt. The value of an atom may be anoth- 
er atom or a number, which is a special kind of atom, or a 
list. The muLIsP interpreter assigns the print name of an 
atom to its value when the atom is created. To create an 
atom, you simply use it; it will be created automatically if 
it is not already present. 

When we assigned (PLUS 3 4) to A, we assigned a list to 
A. This list is composed of the three atoms PLUS, 3, and 4. 
The last two atoms are numbers, the first one is not a 
number. The expression (PLUS 4 (TIMES 5 9)) is also a list. 
It has three members; they are the atoms PLUS and 4 and 
the list (TIMEs 5 9), which is itself composed of the three 
atoms TIMES, 5, and 9. Thus we arrive at the followin 
recursive definition for a list: 


A list is an ordered sequence of zero or more atoms or 
lists. 


This is fine, but what do we have when we have zero 

rather than more atoms or lists in our list? We have the 

empty list ( ). This list occurs so often that it has been 

given a name. The empty list is the value of the atom NIL. 
Given a list such as: 


(A B(C D) (E (F G)) H (D) 


we need the ability to take it apart and get at its compo- 
nents. The principal functions for decomposing a list are 
CAR and CDR. These rather cryptic names were once 
mnemonic in a machine-dependent way. CAR stands for 


_ contents of the address register, and CDR stands for con- 


tents of the decrement register. These were where the 
address pointers to the two halves of a list were stored on 
the machine that ran the original LISP. Needless to Say, 
they have outlived their mnemonic significance, but his- 
tory honors the architecture of the IBM 704 anyway. 

To extract the first component of a list we use the CAR 
function, and to extract the remainder of the list we use 
the CDR function. To make this easier to remember, no- 
tice that the A in CAR alphabetically precedes the D in 
CDR. CAR gets the first part; CDR gets the last part. Inciden- 
tally, CAR is pronounced just like the one you drive to 
work every day, and CDR is pronounced “‘could-er.”’ Let’s 
try some examples. 
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| rial (2)=2, factorial (3)=6, factorial (4)=24, and so on. 
| DEFUN is a LISP-supplied function that defines functions. 
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INFERENCE ENGINE 


(Continued from page 38) 





$(ISETO L (A BC D)) 
(A BCD) 

$L 

(ABCD) 

$(CAR L) 

A 

$(CDR L) 

(BC D) 


$(SETQ OQ '(A B © D)) 
(A BOD) 

$Q, 

(A BOD) 

$(CAR Q) 

(A BO) 

$(CDR Q) 

(D) 


Now that we can take a list apart, how can we put one 
together? The CONS function allows us to build a list out of 
its component parts. For example: 


$(CONS ’A 'B) 
(A . B) 





This example is noteworthy because of the dot between 
the A and the B. In this case, the list is terminated in a 
strange way: a normal list is terminated with NIL as the 
last element, but it doesn’t print out that way. Here the 
last element is B. The dot is used to show this. To build a 
normal list, we must terminate with NIL. For instance: 


$(CONS 'A NIL) 
(A) 


S(CONS ‘A ‘(B)) 

(A B) 

$(CONS ‘A B) (C D)) 
(A B)C D) 


$(SETO U '(X Y Z)) 

(X Y Z) 

$(SETO.V (A BO) 
(ABC) 

$(SETO, W (CONS U V)) 
(XYZABO 

$(CAR W) 

(X YZ) 

$(CDR W) 

(ABO) 







Thus we can see that (CONS (CAR L) (CDR L)) is just L itself. 
Let's try writing a function of our own. We will take 


uct of all the numbers from 1 ton, so factorial (4)= 1, facto- 









The following code implements a factorial function: 
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| (DEFUN FACT (LAMBDA (N) 
(ZEROP N) 1) 
(TIMES N (FACT (SUB1 N))) )) 


The LAMBDA expression above is actually used to de- 
fine the function, and DEFUN assigns this function the 
name FACT. LAMBDA can also be used to define a function 
that is used only once and not give that function a name. 
Refer to any good text on LISP for more information about 
this strange phenomenon. 

The second line of FACT introduces us to a new con- 
struct. The double nesting of parentheses means that the 
CAR of that line is a predicate, or expression that evalu- 
ates to true or false. False is NIL, and true is anything that 
is not-NIL. There is a special atom for the name of true, 
just like NIL is the name for ( ). The name for true is the 
atom T. ZEROP is a predicate that tests for a value of zero. 
If in the second line N=0, then in the third line FACT will 
return a value of 1; otherwise, FACT will return a value of 
N * FACT(N — 1). The SUB1 returns the number that is the 
decrement of its argument. 

The definition for FACT is recursive: it is defined in 
terms of itself. More conventional languages would prob- 
ably encourage the programmer to use an iterative defi- 
nition, such as the BASIC program: 


10 INPUT N 

20 FACT =1 

30 FACT = FACT"N 

40 N=N-1 

50 IF N< >0 THEN GOTO 30 
60 PRINT FACT 


LISP allows for iterative constructs also. We could have 
written FACT as follows: 


(DEFUN FACT (LAMBDA (N) 
(SETO F 1) 
(LOOP 
(SETO F (TIMES F N)) 
(SETO N (SUB1 N)) 
((ZEROP N) F)))) 


The LOOP function repeats the evaluation of each of its 
elements in turn, until a conditional expression is satis- 
fied, at which time the loop exits. The iterative form of a 
simple loop such as this will usually run faster than its 
recursive counterpart, but some problems, such as we 
will see in the unification algorithm later on, demand 
recursion. It is hard to imagine anyone who would find 
the iterative definition easier to understand than the re- 
cursive definition; it is very much like the verbal defini- 
tion. Furthermore, it naturally handles the case for 
FACT(0), which requires an extra /F in the iterative rou- 
tine. 

The muLIsP programming environment, muSTAR, in- 
cludes a built-in full-screen editor and pretty printer and 
a complete interactive debugger and program-monitor- 
ing package. I started using muLISP with the muLISP-80 
version on 8-bit CP/M and have used muLIsP-82 on the IBM 
pC, and I am now using muLISP-83 on an IBM PC. 
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DATALIGHT 


LARGE MODEL 


The Datalight C compiler is a full-featured UNIX 
System 5 compiler for PC and compatible com- 
puters. Datalight C features fast compile time, DLC 
one-step compile command, a MAKE program, full 
8087 and software floating point, and Lattice C 
compatibility. The library contains UNIX standard 
functions and PC specific functions with easy access to DOS/ BIOS 
functions. The package includes source code for UNIX-like tools: 


cat, fgrep, diff wc, and pr. 


Datalight C provides tight, fast, production-quality code as 
shown in the following table (excerpt from “The State of C,” 
PC-TECH Journal, January 1986, used with permission). 











The Developer's kit contains all features of the 
Datalight C compiler plus support for LARGE MEM- 
ORY MODEL, ROMable code, third-party debuggers 
and the complete source for all library functions 
and start-up code. 


Getc / Putc 


Datalight 


11557 8th Ave. N.E. 
Seattle, Washington 98125 
(206) 367-1803 





VISA and MasterCard accepted. Add $3 shipping (SS UPS BLUE). Outside USA 
add $15. Washington State residents add 7.9% sales tax. 


Requires MS-DOS 2.0 or later, 2 DSDD disks. 


Lattice C, a trademark of Lattice Corp. MS-DOS, a trademark of Microsoft. 
UNIX is a trademark Of Bell Labs. 
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has taken the drudgery out of generating plots. These 
libraries contain the most complete collection of plot- 
ting subroutines you can buy. Each collection places 
over 40 routines (in FORTRAN or C language") at your 
fingertips. The library makes it easy fo: 


¢ plot semi-log and log-log graphs 

e draw arcs and circles 

e scale charts to exact sizes 

e label text in different sizes, directions, 
and orientations 

e design bar charts and pie charts 

e and much more 


Each package includes source code and a compre- 
hensive manual. 


Operating Systems: 
Plotters Supported: 


MS-DOS and PC-DOS 


Houston Instruments 
Hewlett-Packard 
HPGL compatibles 


We are constantly testing our libraries on different 
computers and with different compliers including: 
Microsoft FORTRAN, DR FORTRAN-77, RM FORTRAN, 
Lahey F77L, Cl-C86™, and MWC 86. Specify compiler 
when ordering. 


Price: $295.00 


For More Information: The Librarian, Inc. 
40435 Greenbough, #110 
Stafford, TX 7747 
(743) 499-7662 or 494-2088 


*We’re developing libraries in BASIC and Pascal, too! 
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ARTICLES 


A Cellular Automaton 
Written in Expert-2 


first wrote the simple expert sys- 

tem for predicting local weath- 
er.1 Since then, many individuals 
have taken to experimenting with Ex- 
pert-2, and some interesting things 
have happened along the way. For 
openers, Expert-2 was originally pub- 
lished as a learning tool? that would 
be available to users for experimenta- 
tion and perhaps for writing their 
| Own versions implementing infer- 
ence engines considerably improved 
over the original Expert-2. 

But that hasn’t stopped some from 
doing important things with the tool. 
One group, for example, has written 
an expert system for diagnosing user 
problems with a satellite. Another in- 
dividual has begun developing ex- 
perimental medical diagnostic tools 
with Expert-2. 

In the meantime, my closet affec- 


I t's been nearly two years since I 


tion for weather prediction persists, 


so I became interested in systolic ar- 
rays for taking grid data, performing 
blazing calculations, and pontificat- 
ing on future events. It turns out that 
such a systolic array is easy to visual- 
ize as a cellular automaton, an array 
of cells that communicate with their 
nearest neighbors. 

Inserting intelligence into each cell 
seems a logical point of departure, 
the idea being that ‘‘smart’’ cells 
could at first use knowledge provid- 
ed by outside experts to begin issuing 
pronouncements. Later, such cells 
could implement learning strategies 
for improving their predictions. 

Imagine the earth as a globe cov- 
ered with hexagonal-shaped grid 
lines. Each cell enclosed by a set of 
grid lines could be 100 miles across. 


a ee a 


Jack Park, P.O. Box 326, Brownsville, 
CA 95919 
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by Jack Park 


The ultimate idea is 
that each cell could be 
an individual - 
computer. — 


Choose any size and shape cell. If you 
choose an octagon, the cell will com- 
municate with eight neighbors. The 
octagon is the shape used in the pro- 
gram presented here. 

The ultimate idea for the systolic 
array model is that each cell could, in 
theory, be an individual computer, 
complete with its own inference pro- 
gram, database, and knowledge base 
along with, say, nine communica- 
tions ports. That’s eight ports for 
nearest-neighbor linkage and one ex- 
tra to send out the individualized re- 
sults. In a more common systolic con- 
figuration, the final outputs travel 
across the array in so-called systolic 
waves until they reach an edge. In 
the array imagined for weather pre- 
diction, there would be no edge. 
That’s just one candidate architec- 
ture for the weather prediction task. 

That architecture, at least for 
weather prediction, seems reason- 
able, especially when you consider 
that weather in any given cell is af- 
fected by the weather of the nearest 
neighbor cells as well as the weather 
within the cell itself. Knowledge 
about that weather may be cell-spe- 
cific, just as one considers the differ- 
ences between polar and tropical en- 
vironments. 





In any event, the program listed 
with this article (Listing One, page 74) 
models the action of a cellular au- 
tomaton as best a lone Von Neumann 
computer chip can. It is not modeled 
as a systolic array but as a do loop 
that treats each cell individually in a 
fashion similar to the way in which a 
multiprocessor systolic array would 
treat each cell. It’s only a model. John 
Conway's game of Life was chosen 
for this test on the basis that it is well 
documented, never ceases to please, 
and is quite easy to understand. 


The Game of Life 

Because Life is so well documented, I 
won't go into how it works other than 
to point out that each cell represents 
an entity that is either alive or not 
alive. The state of each entity is deter- 
mined by a group of rules that use the 
States of each individual’s nearest 
neighbors as parameters. Thus, the 
game models an ecological system of 
sorts and as such is a reasonable trial 
model along the path of developing 
more complex modeling systems. 

The prime issue developed by the 
program is the interface between the 
numeric aspects of the model—in 
this case, the simple counting of liv- 
ing nearest neighbors and the knowl- 
edge-based intelligence that guides 
the history of a cell. This program il- 
lustrates the repetitive calling of the 
inference system from inside a do 
loop that executes 256 times per dis- 
play pass. With this technique it is 
possible to couple knowledge to pro- 
cedural activities on a repetitive basis 
and effectively watch what a systolic 
array system would otherwise do 
quite quickly. 

Life gives us a chance to study the 
performance of an inference engine. 
Expert-2 takes about 28 seconds to ex- 
ercise a single pass. The cell-counting 
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procedure takes about 2 seconds, 
leaving about 26 seconds for the infer- 
ence mechanism to run 256 times. An 
experimental inference engine of a 
completely different design much 
closer to native Forth takes about 4 
seconds per pass; with the same 2-sec- 
ond numeric part, that’s about 2 sec- 
onds for the inference part. This sta- 
tistic is interesting because it gives 
some evidence of Expert-2’s absolute 
performance: the experimental infer- 
ence engine benchmarks at about 
2,700 logical inferences per second 
and runs Life about 13 times as fast as 
Expert-2 does. The implication is that 
Expert-2 runs about 200 LIPS, which 
isn’t all that fast—so you tell your 
friends “it’s pensive.’ 

There’s more to the timing than 
that; for example the newer infer- 
ence engine has added features, such 
as disjunctive clauses (those coupled 
with OR or ORNOT). If users add such 
clause compilers to their Expert-2, 
fewer, more powerful rules could be 
written for the cell knowledge base, 
and the program would run faster. 
So it turns out that inference speed is 
partly a function of the inference en- 
gine algorithm and partly a function 
of the knowledge base itself. I leave it 
as an exercise for Expert-2 experi- 
menters to see just how fast they can 
get the inference part of this pro- 
gram to run. 

There’s another thing I leave to ex- 
perimenters who want to try run- 
ning Life on their Expert-2: it turns 
out that the inference engine will 
happily write all over the video what 
it deduces on each of the 256 passes 
per epoch. That, of course, is unac- 
ceptable, especially because it wipes 
out the pretty grid display. So a fea- 
ture must be added to Expert-2 that 
suppresses any deduction or conclu- 
sion printing. This feature is set to 
the suppress mode by the word NO- 
SHOW and defaults to SHOW. 

Perhaps one of the more striking 
features of the program is the separa- 
tion of knowledge from all the proce- 
dural stuff. The rules listed between 
the Forth words RULES and DONE 
completely capture all the knowl- 
edge required for determination of 
the next state of any cell. This separa- 
tion makes it a very simple matter to 
rewrite the rules governing the life 
history of individual cells and exam- 
ine the impact of those revised rules 
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on the ecology of the small closed 
world. 

One other point is worth consider- 
ing: the world this exercise models is 
a 16-by-16 array, with the respective 
edges connected such that the world 
looks like a torus. This shape makes 
for some strange edge effects. What 
you see on the display is just the flat 
“apparent” world. You can easily in- 
crease the array size and leave the 
edges free or otherwise change the 
model. A 24-by-24 array would easily 
fit on the display of most computers. 

The entire program compiles on 
top of Expert-2, which, of course, is 
compiled on top of Forth. Expert-2 
will automatically separate the colon- 
defined procedural stuff from the 
knowledge base at the end of the list- 


ing. 


A Single-Hypothesis Method 


This implementation of a knowledge 
base illustrates a single-hypothesis 
method of forcing the inferencing 
process. In short, Expert-2 tries to 
prove—by the backward chaining 
method—some goal hypothesis. In 
this case there is only one hypothe- 
sis, cell propagates. In order to prove 
that hypothesis, the last rule shows 
that the inference engine must first 
prove the cell does not live, then that 
it does not die. If it neither lives nor 
dies, then it continues on (either liv- 
ing or not living). Suppose, however, 
that the counts are such that the cell 
lives (remember that this whole in- 
ference procedure runs once for 
each of 256 individual cells). If the 
cell lives—as, for example, if the first 
rule happens to fire—then the com- 
puter deduces cell lives but neglects 
to tell you it deduced that (remember 
NOSHOW), thus firing the ANDTHEN- 
RUN LIVE consequent clause and 
causing the hypothesis rule to fail. At 
that point, Expert-2 would be happy 
to tell you it cannot conclude any- 
thing, but amnesia again sets in be- 
cause of NOSHOW. Then off to the 
next cell. 

A key point to notice here is that 
Expert-2 wants a symbolic reference 
on which to base its inferences. The 
symbolic reference written into this 
program is the THEN clause that 
states the rule’s consequence (e.g., 
cell lives, cell dies, etc.). Such string 
clauses make the rules quite read- 
able. Furthermore, when combined 
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EXPERT-2 
(Continued from page 43) 










with the numeric or procedural 
clauses (e.g., ANDRUN COUNT=2) 
such symbolic clauses create one 
way an inference engine can com- 
bine powerful symbolic inferencing 
with numeric processing. Of course, 
you could rewrite the rule compiler 
to allow in-line code—that is, to al- 
low you to write into the rule the 
equation you want solved. I have 
chosen to separate numeric and sym- 
bolic representations, suspecting 
there might be some code economies 
caused by multiple calls to the same 
(or similar) procedures from differ- 
ent rules. Thus, the rules simply 
trade on either symbolic clauses or 
name fields of colon-defined proce- 
dures. This leads to some wild specu- 
lations on potential nonmonotonic 
reasoning strategies where one of 
the callable procedures is none other 
than DIAGNOSE, the main inference 
routine—which is something like 
your mutt chasing its tail. 

Included is a pair of pattern initial- 
ization words: EATER and PENTA;3 
they are supposed to act as oscilla- 
tors. You can also add other initializ- 
ing patterns. You must initialize an 
array before running it by typing 
one of the patterns and then typing 
the word RUN to start the whole 
works off. Tap the space bar to kill a 
run—it will stop after the next dis- 
play or after 32 cycles. Enjoy. 
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1. J. Park. “Expert Systems and the 
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2. J. Park. Expert Toolkit (Mountain 
View, Calif.: Mountain View Press, 
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search and Miller Microcomputer 
Service. 

3. David Buckingham. ‘Some Facts of 
Life,’ Byte (December 1978). 
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NEW RELEASE 


Ecosoft’s Eco-C88 Rel. 3.0 C Compiler 


Release 3.0 has new features at an unbelievably low price. ECO-C88 now has: 

@ Prototyping (the new type-checking enhancement) 

@ enum and void data types 

@ structure passing and assignment 

@ All operators and data types (except bit fields) 

m A standard library with more than 200 functions (many of which are System V 
compatible for greater code portability) 

@ cc and mini-make that all but automates the compile process 

= 8087 support (we sense the 8087 at runtime — no dual libraries) 

@ ASM or OBJ output for use with MSDOS linker 

m Tiered error messages — enable-disable lint-like error checking 

m Fast compiles and executing code 

m@ Expanded user’s manual 

m Enhanced CED program editor (limited time offer) 















We also offer the following support products for Eco-C88. 


CED Program Editor ¢ a 9 95 | Z 





C Programming Guide $9) ¢ 


After reading the Ist edition, 

Jerry Pournelle (BYTE Magazine) said: “I recom- 
mend this book... Read it before trying to tackle 
* Kernighan and Ritchie.” The second editon ex- 
"| pands this best seller and walks you through the C 
~4 language in an easy-to-understand manner. Many 
of the error messages include references to this 
book making it a perfect companion to Eco-C88 


for those just starting out with C. 


C Self-Study Guide 
for those learning C on their own. The book 1s filled 


(Purdum, Que Corp.). Designed 

with questions-answers designed to illustrate many 
of the tips, traps, and techniques of the C language. 
Although written to complement the Guide, it may 


CED now supports on-line function help. 
If you’ve forgotten how to use a standard library function, just type 
in the name of the function and CED gives you a brief summary, 
including function arguments. CED is a full screen editor with 
auto-flagging of source code errors, multiple windows, macros, and 

is fully configurable to suit your needs. You can edit, compile, link, 
and execute DOS commands from within the editor. Perfect for use - 
with Eco-C88. For IBM PC, AT and look alikes. 


C Source for Standard Library § 10 


Contains all of the source code for the library 
functions that are distributed with Eco-C88, ex- 
cluding the transcendentals and functions written 
in assembler. 


($20 if not 
with order) 


Developer’s Library 


Contains the source code for all library functions, 
including the transcendentals and those written in 
assembler. Perfect for the developer that wish to 
write their own custom functions or learn how 
we implemented the Eco-C88 library. 


ISAM Library 


Contains the code from the C Programmer’s 
Library in relocatable format (i.e.,.OBJ) includ- 
ing the delete code for the ISAM file handler. 


Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, if 
disk drives and MSDOS 2.1 or later. Call today: 


ECOSOF “Ty 





6413 N. College Ave. @ Indianapolis, IN 46220 
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($50 if not 
with order) 


$15 


($30 if not 
with order) 


be used with any introductory text on C. 

C Programmer’s $ A(0 
Library 

(Purdum, Leslie, Stegemoller, Que Corp.). This 
best seller is an intermediate text designed to teach 
you how to write library functions in a generalized 
fashion. The book covers many advanced C topics 
and contains many useful additions to your library 
including a complete ISAM file handler. 


1-800-952-0472 ww 
1-317-255-6476 osu 
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ARTICLES 





Modeling a System 


in PROLOG 


his article discusses the diffi- 
Tv culty of specifying large soft- 

ware systems and how you 
can model them on a personal com- 
puter if you use the right language. 
Software now costs much more than 
its hardware if the system is really 
large. The Department of Defense is 
so concerned about this problem that 
it has instituted a program to tackle 
at? 

The biggest difficulty seems to be 
getting the specifications right for a 
system so that what is built is really 
what is wanted. Experience shows 
that you must first find answers to 
the following questions: 


¢ What do the users want to input? 
‘How do they want to exercise 
control? 

¢What do they want the output to 
look like? 

¢What kind of logical relations are 
needed to support the above needs? 
* Do the obvious processing goals 
really satisfy the stated require- 
ments? 


What is needed to answer the 
above questions properly is an exe- 
cutable model of the entire system. 
This would be, in the strictest sense 
of the word, a functional specifica- 
tion. It would allow the users to get a 
hands-on feel of how the system ser- 
viced them; even more important, it 
would be complete enough to verify 
the adequacy of the requirements 
and logical structure needed. Cur- 
rent thought about software devel- 
opment seems to be focusing on exe- 





Sheldon D. Sofiky, ABC Press of Sili- 
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by Sheldon D. softky 


How do you produce 
a program that runs 
like the real system 
without being the real 
system? 


cutable specifications as necessary 
tools for effective development.? 
How do you produce a computer 
program that executes like the real 
system does without its being the 
real system? The idea is to save mis- 
takes (and money) by getting a trial 
run of the whole system’s important 
features, but it must be done cheap- 
ly. Using rapid prototyping has be- 
come popular because some features 
needed in the final system are not 
needed in a prototype. For example, 


¢ The prototype doesn’t have to be as 
fast as the intended product. 

¢ It doesn’t need to handle the intend- 
ed full-size database. 

¢It doesn’t need to be in the target 
language or on the target machine. 
¢It doesn’t have to be free from er- 


rors or contain provision for error 
management. 


Because these features are unneces- 
sary, it is possible to model a large 
system cheaply. 

Modeling an entire system calls for 
something extra by way of represent- 
ing the specification—namely, a 
specification language created ex- 
pressly for this purpose. Several lan- 
guages are available, but only very re- 

















cent ones produce specifications that 
can be executed. I will show here 
how the well-known logic program- 
ming language PROLOG has many fea- 
tures that make it ideal for expressing 
such executable specifications. 


Advantages of PROLOG 

It's desirable that you be able to read 
a specification without a week’s 
training course to learn a new lan- 
guage. I shall show, in an example, 
how simple the format is for micro- 
PROLOG from Logic Programming As- 
sociates. Any engineer or program- 
mer should be able to read a modest 
PROLOG program after studying the 
language for an hour or two. PROLOG 
stands for “programming in logic,” 
and it’s not surprising that it shows 
clearly the logical structure required 
for a system. 

PROLOG also acts as an aid to design. 
This follows immediately from the 
form of its sentences (rules or facts). 
The structure of the language actual- 
ly encourages the usual hierarchical 
decomposition of functions into sub- 
functions. When a specification be- 
comes unwieldy to express in PRO- 
LOG, maybe the wrong thing is being 
attempted. 

A third advantage of the language 
is that it it helps to demonstrate I/O. 
It has features that provide both out- 
put, as part of language sentences, 
and the ability to request input as a 
consequence of execution. The most 
commonly used form of output is an- 
swers to queries about the contents 
of a database. 

In terms of cost-effectiveness, PRO- 
LOG couldn't be better. The edition I 
am using costs less than $300 (on a 
disk) and runs on a computer that 
costs less than $700 (Osborne 1). 

It is important that an executable 
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specification does not tempt custom- 
ers to use it as a cheap substitute for 
the real software product. The con- 
sequences of this happening are di- 
sastrous; they frequently discourage 
any use of prototyping that might be 
mistaken for part of the final prod- 
uct. The advantage of a cheap PRO- 
LOG that runs on a cheap computer is 
that it is unlikely to support either 
the speed or the size of a real-world 
information system and thus the re- 
sulting prototype could not be mis- 
taken for the final product. 

PROLOG’s weakest point is the way 
in which it models the intended envi- 
ronment. Any simulation of the tar- 
get implementation environment 
would have to be provided in the log- 
ical structure of the program (which 
is quite possible but must be done by 
the designer). 


A System Described in 
PROLOG 

I have chosen to model a hospital ad- 
ministrative information system. 
Greenspan, Mylopoulos, and Bor- 
gida? used such a system to demon- 
strate their custom-built specification 
language, RMF. I am indebted to them 
for suggesting this type of system 
and for the stimulation that led to 
PROLOG usage. The suggestion that 
PROLOG would be good for stating 
specifications was actually made by 
Shapiro,4 but I haven’t seen any im- 
plementation of the suggestion. 

Most information systems must 
store a common core of reference 
data about their subjects. The prima- 
ry subject of the information system 
in this example is the hospital pa- 
tient; the basic core of reference data 
for a patient certainly includes 


¢ Last name, first name, initial 

¢ Social security number 

e Address: street and number, City, 
state, ZIP 

e Phone 


Some basic ID number must be cho- 
sen for a subject; I have chosen the 
social security number as the prima- 
ry identifier for a hospital patient. All 
other data items are keyed to this one 
for an individual patient. I make each 
of the simplest items above into a sin- 
gle fact about the patient and give ita 
PROLOG name that shows the func- 
tion of the data item. This functional 
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name is called a predicate. The above 
facts are represented in the form 


(predicate data-value ID-value) 


which for a patient named Humpty 
Dumpty could be: 


(social-sec-no 54064) 
(firstname-ini Humpty $4064) 
(lastname Dumpty $4064) 
(housenumber H4701 S4064) 
(street Broadway S4064) 

(city Provo-Utah $4064) 

(zip P89201 $4064) 

(phone 405 “—"’ 1191 S4064) 


i's 3AM ! 


PROLOG actually allows any num- 
ber of data values or ID values to be 
contained in a fact, following the 
predicate. You can pull together sev- 
eral facts about the same patient by 
defining a rule that enumerates 
those facts, with data items men- 
tioned as variables instead of as con- 
stants in the referenced facts. A PRO- 
LOG rule defines the relation 
person-id as the simultaneous match- 
ing of facts about a patient: firstname- 
ini, lastname, and social-sec-no, as 
shown in Table 1, page 48. Note that 
the common variable name in all the 
facts is social-sec-no. Note also that I 






Do you know where your bugs are ? 


This C programmer is finding his bugs the hard way ...one at a time. 
That's why it’s taking so long. But there’s an easier way. Use 


PC—Lint 


PC—Lint* analyzes your C programs ( 


one or many modules) and uncovers 


litches, bugs, quirks, and inconsistencies. It will catch subtle errors before 
ey catch you. PC—Lint resembles the Lint that runs on the UNIX* O.S., but 
with more features and some awareness of the 8086 environment. 


© Full K&R C 


© Supports Multiple Modules—finds incon- 
sistencies between declarations and use 
of functions and data across a set of 
modules comprising a program. 


® Compares function arguments with the 
associated parameters and complains if 
there is a mismatch or too many or too 
few arguments. 


 User-modifiable library description files for 
most major compilers. 


e All warning and information messages 
may be turned on and off globally or 
locally (via command line and comments) 
so that messages can be tailored to your 
programming style. 

e All command line information can be 
furnished indirectly via file(s) to automate 
testing. 


a” Amiga - Lint 


: Special Introductory Price 
$98.00 





e Use it to check existing programs, 
programs about to be exported or im- 
ported, as a preliminary to compilation, or 
prior to scaling up to a larger memory 
model. 


e All one pass with an integrated pre- 
processor so it’s very fast. 


e Has numerous flags to support a wide 
variety of C's, memory models, and 
programming styles. 


© Price: $139.00 MC, VISA 
(Includes shipping and handling) PA residents add 6% 
sales tax. Outside USA add $10.00 


© Runs under MS-DOS* 2.0 and up, with a 
minimum of 128Kb of memory. It will use 
all the memory available. 


Trademarks: PC—Lint (Gimpel Software), UNIX AT&T), 
MS-DOS (Microsoft). 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(215) 584-4261 
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MODELING IN PROLOG 
(Continued from page 47) 


have used imitation social security 
numbers of only four digits as a con- 
venience. 

The only thing you have to learn to 
write such PROLOG sentences is the 
meaning of the punctuation. The 
whole sentence must be enclosed in 
outer parentheses, the relation 
clause being’ defined by the rule 
must be the first clause and be en- 
closed in parentheses, and each 
other clause that must be matched 


for the rule to be satisfied must also 
be enclosed in parentheses. The first 
item appearing in each clause is the 
name of that fact or rule, and is 
called a relation (or predicate). There 
is an implied IF after the relation 
clause being defined and implied log- 
ical ANDs between all the clauses that 
support the relation. Thus you 
would read the rule in Table 1 as: 
(person-id X Y Z) IF (lastname Y Z) 
AND (firstname-ini X Z) AND (social- 
sec-no Z). 

The power of PROLOG rules is that a 
rule can reference other rules as well 


Programmer 


Essentials 





> “Offers many capabilities for a reasonable price” , 


O W. Hunt, PC Tech Journal py 
Ca highly recommend the [ UTILITY LIBRARY” o 
,O 





r is 
y 


D. Deloria, The C Journal ‘me 











((person-id X Y Z) 

(lastname Y Z) 

(firstname-ini X Z) 

(social-sec-no Z)) 
((firstname-ini B $123)) 
((firstname-ini Tom-T $3475)) | 
((firstname-ini Mrs-Jack-S $4831)) 
((firstname-ini Humpty S4064)) © 
((firstname-ini Don S4776)) _ 
((firstname-ini Don S4895)) 
(lastname AS123)) | 
(lastname Thumb S3475)) 
(lastname SprattS4831)) 
(lastname Dumpty $4064)) — 
(lastname Giovanni S4776)) 
(lastname Quixote $4895)) 
((social-sec-no $123)) 
((social-sec-no $3475)) 
((social-sec-no $4831)) 
((social-sec-no S4064)) 
((social-sec-no S4776)) 
((social-sec-no $4895)) 





Table 1 






((address X Y Z x yz X1 Y1 Z1) 
(person-id X Y Z) 


(housenumber x Z) 

(street y Z) 

(city zZ) 

(zip X1 Z)  . 

(phone Yt" —2iz) 
((housenumber C $123)) 


((housenumber H14085 $3475) _ — 


((housenumber H1808 S4831)) 
((housenumber H4701 S4064)) 
((housenumber H3851 S4776)) 
((housenumber H21105 $4895)) 
((street D $123)) 























ae CO (street Abelson-St $3475)) 
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as facts. Thus complex relationships 
can be functionally decomposed by 
nesting rules within rules within 
rules and so on until, at the bottom 
level, only facts are referenced. A 
simple example of this is the defini- 
tion of the relation address shown in 
Table 2, page 48, in which the relation 
person-id is used and all the rest of the 
clauses are simply facts. 

There are some more complex 
conditions for entering a patient into 
a hospital database than those I have 
discussed so far. For example, several 
checks must be made before admis- 
sion is complete: 


¢ Is there room left in the hospital? 

¢ Can the patient pay? 

¢ Has the patient’s personal data been 
entered? 

«Has the patient been assigned to a 
ward? 

¢ Has the patient been assigned both 
an attending physician and consult- 
ing physician? 

¢Does the specialty of one of these 
physicians match the type of ward 
that was assigned? 





~ (in-hospital X Y Z x) 
(person-id X Y Z) 
(admit-date x Z) 

(NOT release-date y Z) 
(NOT died-onzZ)) 
((admit-patient X Y) 
































(room-is-left-for X Y Z) 
(submit-patient Y x) 
(DELCL ((patient-count Z))) 
(ADDCL ((patient-count X))) 
(ADDCL ((admit-date x Y)))) 
((room-is-left-for X Y Z) 


(patient-count Z) 
(SUM Z 1 X) 
(room x) 


(person-id y z Y) 
(NOT admit-date X1 Y)) 
((submit-patient X Y) 


(can-pay X) 
(ward-name Z X) 
(atten-phys x X) 
(cons-phys y X) 
(specialty-match x y Z) 
(current-date Y)) 


Table 3 
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(/* admits patient after checking for space and assignments) 


(/* checks new patient-count against available space, and whether) 


(/* person not yet admitted, but personal data entered) 


(OR ((LESS X x)) (EQ X x))) 


(/* checks ability to pay and MD, ward assignments) 


Although many other conditions 
are associated with entering a hospi- 
tal, these suffice to demonstrate how 
PROLOG encourages hierarchical de- 
composition of the functions of a sys- 
tem. A clear expression of the above 
conditions requires some deeply 
nested rules, which can be arrived at 
bottom-up or top-down, as you wish. 

Table 3, below, shows these rules 
top-down. The relation in-hospital is 
true if there is a person-id and an ad- 
mit-date but not a release-date or a 
died-on date. There is an admit-date 
for the patient if the rule for admit- 
patient has been satisfied. (ADDCL puts 
that clause in the database; DELCL re- 
moves the clause.) This is a deeply 
nested rule that uses a check for 
room-is-left-for and the data provid- 
ed for submit-patient. Room-is-left-for 
counts the total patients if the admis- 
sion takes place and verifies that the 
person-id isn’t already admitted. Sub- 
mit-patient checks the physician and 
ward assignments and whether the 
patient is financially responsible and 
provides reference to current-date. It 
refers to the specialty-match relation, 




















Byte Magazine called it. 
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SYSTEM 






The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4’ x 72” single board system. 





e 6MHz 64180 CPU 
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8K Monitor ROM with device test, disk 
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e Mini/Micro Floppy Controller 
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@ One Centronics Printer Port 
@ Two RS232C Serial Ports 
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SB180-1 
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which checks whether either of the 
physicians assigned have a specialty 
matching the ward-name. It is desir- 
able to express specialty-match in 
terms of phys-spec-ward and _phys- 
spec-cons, which reference the phy- 
sicians’ specialties listed under phys- 
spec. (See Table 4, right.) 

All these rules, no matter what 
their level in the decomposition, can 
be individually queried whenever 
desired. This is a big difference from 
a “‘standard”’ language, where a 
whole program must be executed to 
test anything. The ability to “peek 
into” a PROLOG specification makes it 
more manageable than is a conven- 
tional prototype, and it is equally 
easy to change something in a visible 
way and check that it worked prop- 
erly there. 


Execution of a PROLOG 
Specification 
PROLOG executes as an interpreter— 
that is, it compiles and executes line 
by line (as does BASIC). Sentences 
typed in from the keyboard are add- 
ed to the contents of the program 
workspace and contribute to the exe- 
cution if they are referenced. The 
usual way in which you execute PRO- 
LOG is by typing in a query from the 
keyboard that references one or 
more rules or facts. The contents of a 
query can be a set of clauses with a 
mixture of variables and constants. 
There are two forms of query: a 
yes/no answerable question and a 
question whose answer contains val- 
ues for all the variables mentioned. If 
a single rule is referenced with none 
of its variable values specified, PRO- 
LOG replies with the values for all the 
variables that are requested. The 
PROLOG data used to answer queries 
consists of facts that are tried in rules 
that are referenced, plus values pro- 
vided in the query itself. The data is 
substituted in all the supporting 
clauses for a rule, using the matched 
variable names for identical items. If 
a complete match is possible using 
only facts that are in the database, 
those values requested in the query 


are printed as an answer or yes/no 
for that type of query. The entire da- 
tabase is examined in a backward 


scan that tries all possible combina- 
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Table 4 


((can-pay X) 

(OR ((bluecross X REF-NO Y)) ((cred-ref X BANK-NAME Z)))) 
((specialty-match MD1 MD2 ward-spec)) 
((specialty-match X Y Z) 

(/* checks that either ward MD or consulting MD has) 

(/* specialty that matches the ward) 

(OR ((phys-spec-ward Z X)) ((phys-spec-cons Z Y)))) 
((phys-spec-ward ward-spec MD)) 
((phys-spec-ward X Y) 

(/* specialty of the assigned ward MD) 

(phys-spec Z Y) 

(EQ Z X)) 

((phys-spec-cons cons-spec MD)) 
((phys-spec-cons X Y) 

(/* specialty of the assigned consulting MD) 

(phys-spec Z Y) 

(EQ ZX) 

((phys-spec specialty MD)) 

((phys-spec surgery John-Jones)) 
((phys-spec ear-nose-throat Bill-Smith)) 
((phys-spec dermatology Jim-White)) 
((phys-spec obstetrics Jim-Jackson)) 
((phys-spec pediatrics Bob-Black)) 





Table 5 


all (( X Y Z) (person-id X Y Z)) 
(BA $123) 

(Tom-T Thumb $3475) 
(Mrs-Jack-S Spratt $4831) 
(Humpty Dumpty $4064) 
(Don Giovanni $4776) 

(Don Quixote $4895) 

No (more) answers 

&. 


all ((X Y Zx yz X1 Y1 21) (address X Y ZxyzX1Y1 Z1)) 

(BA S123 CCE G 923 1436) 

(Tom-T Thumb S3475 H14085 Abelson-St San-Carlos P94065 364 291 5) 
(Mrs-Jack-S Spratt S4831 H1808 Rose-Way Burlingame P94072 291 1507) 
(Humpty Dumpty $4064 H4701 Broadway Provo-Utah P89201 405 1191) 
(Don Giovanni $4776 H3851 Alameda Menlo-Park P94025 329 51) 

(Don Quixote $4895 H21105 El-Camino Palo-Alto P94043 326 81 95) 

&. 


all ((X Y Z x) (in-hospital X Y Z x)) 
(Tom-T Thumb $3475 D840815) 
(Mrs-Jack-S Spratt S4831 D840815) 
No (more) answers 


all ((X Y Z) (can-pay Z) (person-id X Y Z)) 
(B A $123) 

(Tom-T Thumb $3475) 

(Humpty Dumpty $4064) 

(Don Giovanni S47 3) 

(B A $123) 

(Mrs-Jack-S Spratt $4831) 

(Don Quixote $4895) 

No (more) answers 

&. 


ask ((specialty-match John-Jones Bill-Smith surgery)) 
yes 
&. 
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tions. When answers are exhausted, 
PROLOG prints ‘‘No more answers. ” 
The type of query that prints val- 
ues consists of all((list of some var- 
iables)(some fact or rule)(some other 
fact or rule)(etc .. .)) with each vari- 
able in the list mentioned in at least 
one of the rules that are referenced. 
The yes/no query is ‘‘ask (a rule with 
values already substituted)(another 
such rulevetc ...).”’ Table 5, page 50, 
shows some queries of rules I have 
described in the hospital database. 




















Using PROLOG fora 
Specification Tool 
Obviously the expression of a specifi- 
cation, such as the one in this exam- 
ple, doesn’t replace the document 
you are already familiar with—it 
complements it. Most customers for 
large software systems have their es- 
tablished requirements for an initial 
specification that is written in text. 
The executable specification should 
be looked upon as a useful extension 
to prototyping and a help in experi- 
menting with designs. This tech- 
nique is so inexpensive that it should 
be accessible to everyone who devel- 
ops software or studies systems. 
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LEARN LISP 


Interactively and Write ‘‘Realistic’’ Programs 


with TransLISP for Only $75 


A ‘““COMMON LISP’’ compatible Tutorial, Interpreter, Debugging, and 
Pretty Printer plus a Fast, Full Screen Editor, Samples and Help 


(_) Start Easily and Quickly: 

A complete, modular tutorial helps you 
learn LISP at your own pace. An in- 
tegrated, interactive environment provides 
all of the elements needed to enter, modify, 
analyze and debug programs. 


1) Write Realistic Programs: 

Short examples and substantial programs of 
about 10 pages in length help you learn by 
modifying, studying and using the key con- 
cepts needed to write programs of 1000 
lines or more. 

(1) The ‘‘COMMON LISP”’ Standard: 
TransLISP includes a 230+ function 
subset of the ‘“COMMON LISP”’ Standard. 
Use extras like the MSDOS interface and 
graphics. Or use ‘‘strict compatibility’ to 
make programs written in TransLISP, 

with no changes, work with other COM- 
MON LISP systems like VAX LISP, 
GC/LISP or LISP Machine LISP. 


Use and Modify the Mailing List program 

to learn how to handle ‘‘normal’’ programming in LISP. 
Runs on any MSDOS or PCDOS Systems: Not copy-protected, TransLISP is available in just 
about any 3’’, 5’’ or 8’’ format. PC compatibles can run TransLISP with no installation pro- 
cedure. 192K memory and 1 floppy drive are the minimums required. 

ONLY 
$75 
Full refund if not 
satisfied during 
first 30 days. 


() Natural Language, Expert Systems and 
Mailing List: 
Natural Language concepts are illustrated 
by a phone number retrieval program. 
Choose the best word processing program 
for you with the Expert System. File handl- 
ing and typical data processing work are 
demonstrated by a Mailing List program. 


For Beginners and Experienced Programmers 
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With PROLOG-386 
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1 Write Symbolic Math or Abstract 
Problem Solving Applications 

This is a complete Prolog program to 
convert from Farenheit to Centigrade: 
f to_c(C,F):- C is(F-32) *5/9. Planning 
programs and games are included to 
help you learn. 


1) Modify and write Expert Systems. 
Use the simple ‘‘Guess the animal”’ 
example on the Tutorial or use the 
sophisticated system for Section 318 of 
the US Tax Code written by one of the 
PROLOG-86 authors and published 

in the March, 1985 issue of Dr. Dobb’s 
Journal. 

CO Understand Natural Language 

Use the sample program that produces 
a dBase DISPLAY command as output. 
Programming experience Is not required, but a logical mind is. 

Prolog-86 Plus for $250 adds: Windowing, 8087, 640K memory access, random access 
files, strings support and definate clause grammar. 

RECENT IMPROVEMENTS: Floating point support, MSDOS commands, on-line 
help, load Editor. 

AVAILABILITY: All MSDOS, PCDOS systems. 


ONLY 
$95 
Full refund if not 


satisfied during 
first 30 days. 


1] BECOME FAMILIAR WITH 
PROLOG IN ONE EVENING. 


335- D Washington St. 
Norwell, Mass. 02061 
617-659-1571 
800-821-2492 
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A 68000 Cross 


Assembler—Part 1 


than two years I have been ad- 

miring the Motorola 68000 from 
afar, wanting to do something with it 
but not knowing quite what. Al- 
though I’ve worked a bit with assem- 
bly language and with microproces- 
sor hardware (Z80, Z8000, and 
M6800), I wasn’t really what you’d 


[= to be obsessive. For more 


call a “let's get close to the metal” | 


type of hacker. What to do? 

My love affair with Modula-2 start- 
ed about a year ago. After coming up 
through FORTRAN, Pascal, and C 
(with a smattering of COBOL, BASIC, 
and even LISP thrown in), Modula-2 
seemed an ideal language. Here was 
a high-level structured language that 
you could actually use to write oper- 
ating systems, and unlike C, even 
make sense of the code afterward. I 
had it! I'd write a 68000 assembler in 
Modula-2. I was off to the races. 


Bottoms Up? 
Modula-2 is a great language for both 
top-down and bottom-up design. The 
top-down aspect is usually more high- 
ly touted, but often the immediate 
need is for some tool so that you can 
proceed with a design. The first thing 
I realized as I started to plan this pro- 
ject was that I would need some way 
to handle 32-bit integers. The 68000 
uses operands that are up to 32 bits 
wide, whereas the implementation of 
Modula-2 that I was using (Hoch- 
strasser’s Modula-2 System for Z80 CP/ 
M) provided only 16-bit integers, as the 
compiler was written before Wirth 
amended the language to include 
LONGINT, LONGCARD, and LONG- 
REAL. 

My first task, then, was to create a 
bottom-up module to handle the 32- 
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The first thing I 
realized is that I 
would need some way 


fo handle 32-bit 
integers. 





bit numbers I would need through- 
out the project. The LongNumbers 
module provides all the facilities to 
input, manipulate, and output a new 
data type that I called LONG, which 
acts essentially as an 8-digit hexadeci- 
mal number. Although I could have 
used assembly language or tricky 
machine-dependent low-level Mod- 
ula-2 code to create a more efficient 
implementation, I decided to forego 
efficiency for portability because I 
plan to transport the assembler to 
other environments. (I have ported 
the assembler to the IBM PC using the 
Logitech compiler.) 

Listing One, page 76, shows the 
definition module for LongNumbers. 
The type LONG is simply an array of 
INTEGER. I chose INTEGER instead of 
CARDINAL or subrange [0.. 15] to 
ease handling of carry/borrow in 
the arithmetic procedures. Most of 
the procedures are pretty straight- 
forward, but some may need clarifi- 
cation. CardToLong and LongToCard 
provide conversions. This allows 
some flexibility so the assembler can 
accept 68000 addressing offsets (and 
even constants) in either hexadeci- 
mal or decimal. Because CARDINAL 
has a much smaller range than LONG 
has, not all conversions are Possi- 
ble—LongToCard returns FALSE in 
such cases. StringToLong converts a 
sequence of ASCII characters into a 





LONG, returning FALSE if any illegal 
character is encountered. Like much 
of the code that I write now, Long- 
Compare is patterned after a similar 
C routine for comparing strings. The 
two output routines, LongPut and 
LongWrite, are different from the 
rest of the routines in that they don’t 
actually use type LONG; instead, they 
use Open array parameters, which 
allows them to output an arbitrary 
sequence of hex digits. The last two 
routines, AddrBoundW and Adar- 
BoundL, are needed because the 
68000 insists that certain types of in- 
structions and data begin at “even” 
addresses. 

One other bit of bottom-up design 
occurred at the beginning of this pro- 
ject and resulted in a general-pur- 
pose library routine. I’ve always 
liked the way C handles command 
line arguments (with the standard 
parameters ArgC and ArgV). For 
those readers unfamiliar with G; 
ArgC is a count of the number of 
command line arguments encoun- 
tered by the operating system, and 
ArgV is a pointer to those arguments. 
My module CmdLin2 mimics this be- 
havior for the Modula-2 environ- 
ment. The definition module (Listing 
Two, page 76) shows ArgV as an AD- 
DRESS; it is used in the main program 
as a POINTER TO ARRAY OF POINT- 
ER TO STRING in much the same 
way as C would use it. (Note: This is a 
machine-dependent module—CP/M- 
80 only! It assumes that the com- 
mand line will be located at memory 
location 80H, with a count in the first 
byte. Programmers working in other 
environments will have to adapt at 
least the absolute addressing used in 
the implementation.) 


Design Phase 
With a few tools in hand and more 
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confidence than any believer in Mur- 
phy’s Law has a right to have, I sat 
down to do a requirement analysis. I 
came up with the specifications 
shown in Table 1, page 54. 

Jumping ahead just a bit: You 
might want to ask how well the final 
program adhered to these specifica- 
tions. I fell short in a couple of areas 
and went beyond the original speci- 
fications in others. I never did imple- 
ment the RORG assembler directive 
as a linker is required for it to be of 
any use and I haven't written a link- 
er (yet!). Also, the assembler does not 
support binary constants. One addi- 
tional pseudo-op (EVEN) is support- 
ed, however, and limited ASCII string 
evaluation was added. The error 
messages finally implemented are 
somewhat more extensive. 


Implementation of X68000 
The X68000 Cross Assembler is writ- 
ten in standard Modula-2, as defined 
by Niklaus Wirth in the second edi- 
tion of Programming in Modula-2, 
(Springer-Verlag, 1983). The only pos- 
sible machine dependency (aside 
from the CmdLin2 module already 
mentioned) is because of the assump- 
tion that INTEGERs, CARDINALs, and 
BITSETs all occupy 16 bits of memo- 
ry. Most microcomputer implemen- 
tations and even several minicom- 
puter implementations conform to 
this standard. Porting considerations 
will be mainly in the area of I/O li- 
brary routines. The Hochstrasser li- 
brary is virtually identical to the Voli- 
tion Systems library, so little more 
than recompiling should be neces- 
sary for this popular compiler. 

In the August 1984 issue of Byte, 
Wirth made a few comments about 
modules that are appropriate to any 
discussion of a major Modula-2 
project: 


“With the module we have added 
another level of granularity in pro- 
gram structuring. The difficulties of 
finding a good partitioning—I care- 
fully avoid the word ‘optimal’—are 
culminated at this level.... Lucky 
are those who hit a good solution at 
the outset, for any change affects all 
participant” modules. 


Amen to that! My initial partition- 


ing had a module that I called Parser 
doing the decomposition of source 
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lines into parts of speech, as well as 
syntax analysis and code generation. 
After the module had grown to more 
than a dozen large procedures and 
more than a thousand lines of code, I 
conceded that this was not the “opti- 
mal” partitioning. In the end, I split 
the original module into three small- 
er modules: Parser, SyntaxAnalyzer, 
and CodeGenerator. This splitting 
made for some rather awkward vari- 
able and type importations. With 
that disclaimer, we can go on to look 
at the data flow diagrams for the fin- 


ished program. 


Assembly — Pass 1 

The purpose of the first pass through 
the 68000 source code is mainly to 
build a symbol table. As each instruc- 
tion is scanned, an address counter is 
advanced based on the length of the 
instruction (68000 instructions vary in 
length from 2 to 10 bytes). When an 
EQU pseudo-op is encountered, its 
value must be entered in the symbol 
table, and when any other label is en- 
countered, the value of the current 
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address counter must be entered into 
the table. Because the same syntax 
analysis routines are used for both 
passes, some errors are reported dur- 
ing this pass. 

Figure 1, page 55, is a data flow dia- 
gram for pass 1. The 68000 source 
code is read one line at a time and 
split into four parts by the routines in 
Parser. The definition module for 
Parser is given in Listing Three, page 


76. LineParts is the only procedure 
that is exported by Parser, but sever- 
al routines that are hidden in the im- 
plementation module do most of the 
work. (The implementation modules 
will be presented and explained in 
parts 2 and 3 of this series of articles.) 

Parser passes any labels on to the 
SymbolTable module for entry in the 
symbol table; the opcodes (e.g., 
MOVE) go to the OperationCodes 
module where the machine code is 
extracted from a lookup table; and 
the operands (e.g., RO,(A2)) are sent, 
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via the BuildSymTable procedure in 
CodeGenerator, to the SyntaxAna- 
lyzer module where their format is 
checked and their size determined. 
The definition modules for Symbol- 
Table, CodeGenerator, and Syntax- 
Analyzer are Listings Four, Five, and 
Six (pages 76 and 78). 

If a label is present, BuildSymTable 
passes a value (most often the address 
count) to the SymbolTable module, 
where it is stored and referenced to 
its label. Although the SymbolTable 
module has four procedures for 
managing the symbol table, it is 
mostly the FillsymTab routine that 
finds work during pass 1. The defini- 
tion module for ErrorX68 is shown as 
Listing 7, page 78 nd is responsible 
for outputting error messages to the 
console and then returning to the 
main flow when the programmer 
acknowledges the error by pressing 
any key on the console keyboard. 


Assembly — Pass 2 

The major purpose of pass 2 is, of 

course, generation of machine code, 

which is written to an S-record file 

on disk. In addition, a formatted pro- 

gram listing is created, also on disk. 
Before pass 2 actually starts, the 









Specifications 
Two-pass assembler (no macros) 
Written entirely in high-level language 
Supports pseudo-ops 

ORG & RORG 
EQU 
DC.B 
DC.W 
DOG.L 
DS 
END 
Creates formatted listing file 
Creates S-record file 
SO header record 
S2 data/code records 
$8 trailer record 
Outputs error messages to console 
Undefined opcode/pseudo-op 
Label defined twice 
Undefined label 
Operand inconsistent with op-code 
This addressing mode not allowed 
Phase error 
Numeric constants/operations 
HEX 
Decimal 
Binary 
T/ = 
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SortSymTab procedure in the Sym- 
bolTable module sorts all identifiers 
into alphabetical order. This allows 
their values to be found more quick- 
ly during the code generation pass. 
Most of the steps taken in pass 1 are 
repeated essentially unchanged dur- 
ing pass 2. The data flow diagram for 
this pass is shown as Figure 2, below. 
Parser still performs the same task 
and passes labels, opcodes, and oper- 
ands onto the same modules as be- 
fore. During pass 2, however, it is the 
GetObjectCode procedure in Code- 
Generator that works with the vari- 
ous procedures in the SyntaxAna- 
lyzer module. 

The two “busiest” routines in the 
whole process are GetOperand from 
SyntaxAnalyzer and a routine called 
MergeModes hidden within the im- 
plementation module of CodeGener- 
ator. GetOperand determines the 
mode and values (if any) for all oper- 
ands; GetValue, GetSize, and several 
other procedures help with the 
smaller jobs. MergeModes takes all 
the information from Operation- 
Codes, SymbolTable, and SyntaxAna- 
lyzer and combines it to produce 
hexadecimal machine code. 

The Listing and Srecord modules 
use the machine code from CodeGen- 
erator to create their files. Listing 
also gets the complete lines of source 
code from the Parser module to 
merge it with the object code for that 
line. The result is a formatted listing, 
with addresses, object code, source 
code, and page numbers. As an aid to 
debugging, the ListsymTab proce- 
dure in SymbolTable provides a sort- 
ed list of all identifiers, along with 
their values. The definition modules 
for Listing and Srecord are shown as 
Listings Eight and Nine, shown on 
page 78. 


The Main Program 
The main program for X68000 is 
shown as Listing Ten, page 78. From 
the above description, it should be 
obvious that there is not too much for 
the main module to do. Its tasks con- 
sist of inputting and formatting the 
68000 source code file name; open- 
ing, resetting, and closing files; and 
providing the two REPEAT loops that 
control pass 1 and pass 2. 

The most interesting aspect of 
these jobs is the command line inter- 
face. Because I hacked at C before I 
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learned Modula-2, I sometimes miss 
some of the facilities provided by 
that language. (My article ‘Bit Ma- 
nipulation in Modula-2,’’ DDJ, No- 
vember 1985, sprang from a similar 
hang-up.) As mentioned above, the 
module CmdLin2 provides facilities 
similar to C’s via the ArgC and ArgV 
arguments. The declaration of ArgV 
lists it as an ADDRESS; in Modula-2, 
that makes it compatible with all 
pointer types. What CmdLin2 does 
internally is to create an array of 
pointers, with one pointing to each 
argument. ArgV points to that array. 
So, to use the ReadCmdLin proce- 
dure, I declare ArgV as: 


POINTER TO ARRAY [1 . . n] OF POINTER 
TO STRING; 


And each string becomes: 
ArgV‘[i]*. 


Although this program has only 
one command argument (the file 
name), CmdLin2 was written as a 
general-purpose library routine. In- 
cidentally, the 2 in the name is be- 
cause the compiler comes with a li- 
brary module called CmdLin, which 
uses a more conventional (for Mod- 
ula-2) approach to the problem—you 
bring in the whole command line as 
a string and parse it into arguments 
yourself. It is interesting that the C 
approach results in a smaller module 
but does more work for you! 


Availability 
The following is available directly 
from the author for $20 (U.S.): 

1. A 25-page X68000 User’s Manual 
that includes operating instructions 
for the program as well as a descrip- 
tion and example of a method to use 
the assembler to link several 
modules. 

2. An 8-inch CP/M SSSD disk or a 514- 
inch IPM PC disk with executable pro- 
gram as well as complete source 
code and several 68000 assembly-lan- 
guage examples. DDJ 
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C CHEST 
LISTING ONE (Text begins on page 18.) 


Listing 1 -- redir.c 
1 redir( cmdline ) 
2 register char *cmdline; 
a A 
4 /* Handles redirection. The command line will be null 
§ * terminated wherever the first < or > is found. 
6 * Returns 1 if any redirection happened, 0 if none. 
7 sy 
8 
9 


QO; 
0; 


register int inquote 
10 int rval 
11 int input; 
12 int append; 
13 int erralso; 
14 char *fname; 





16 while( *cmdline ) 

7 { 

18 /* Skip to a < or >. Brackets in quoted strings or 

19 * preceeded by a \ are ignored. When the loop terminates 
20 * cmdline will be pointing to end of string or the 

21 * angle bracket. 

22 =f 





25 for(; *camdline && (inquote || !ISREDIR(*cmdline)); cmdlinet++ 
{ 


EARTH COMPUTER’s TURBOSLAVE- || 5; iin tele eal lek Pile AS 
PC™ is the world’s fastest Z-80 28 cmdline++; 

Coprocessor. Running at 8MHz, it was 29 

designed to permit operation of thousands a else if( etece See e 

of CP/M application programs on your IBM- 32 } 


PC, XT, AT™, or compatible computer 33 
system 34 if( !*cmdline ) 
: 20 break; 


The TURBOSLAVE-PC supports the 36 
TurboDOS™ multi-user operating system 38 
which allows up to 16 users on your PC. 39 /* If we get here then we're processing a < or > 
It is the only IBM-PC/Z-80 system that is 40 * Parse the command, and strip out the file name. 
MP/M™ compatible and allows TRUE 3: =e 

multi-user, multi-process operations, in- 43 rval =1; 


cluding full record locking and security. 44 input = (*cmdline = '<'); fe or Se- #7 
; 45 *cmdline++ = '\O'; 


47 if( append = ISREDIR(*cmdline) ) EF <K -OX- PSR 
48 cmdline++; 


50 if( erralso = (*cmdline == '¢') } f* 2&. Ort SEES 
Sli cmdline++; 





: 53 SKIPWHITE (cmdline) ; /* skip to file */ 
— 54 fname = cmdline; /* name. */ 
Discover a whole new world of high-speed 95 


(8MHz) single and multi-user applications = while ( ete !isspace (*cmdline) «&& ! ISREDIR (*cmdline) ) 
for your personal computer. Discover the 58 : 


TURBOSLAVE-PC.. . the world’s fastest 59 if( *cmdline ) 

Z-80 Coprocessor, with such outstanding 60 *cmdline++ = '\0'; 

features as: 62 
128K RAM with parity 63 

e 2 Serial ports 64 /* Now actually do the redirection 

On-board Counter Timer 65 rf 

S.L.R. Z-80 assembler included 67 if( input ) 


68 a fo 
To order your TURBOSLAVE-PC, call or 69 Bags: Pe ey 


write to: 70 { 
71 freopen( fname, append ? "a" : "w", stdout ye 
72 if( erralso ) 
73 dup2(1, 2): 


to } 





ad return rval ; 


P.O. Box 8067, Fountain Valley, CA 92728 78 } 
TELEX: 910 997 6120 EARTH FV 79 


BO Rh ky 


82 unredir() 
{ 


Ask about EARTH COMPUTERS’ other || ° freopen( "/dev/con", “r¥, stdin); 
fine PC and S-100 compatible products. 86 duno 1. Pee ee 


IBM-PC, XT, AT are trademarks of International 88 
Business Machines,inc.; CP/M and MP/M are 
trademarks of Digital Research; TurboDOS is a 


trademark of Software 2000; TURBOSLAVE-PC is a sats 
trademark of Earth Computers End Listing One 
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LISTING TWO 


Listing 2 -- switch.c 


End Listing Two 


1 #include <stdio.m 

2 #include <dos.h> 

3 

4 /* SWITCHAR.C: Read or set the switch character depending 
a on wheter one is present on the command 
Sa line. 

oh * 

8 * Author: Anthony LiCausi 

9 * 

10 * Modified somewhat by Allen Holub. 

11. */ 

12 

43“ ant switchar( c } 

14 { 

15 /* If c == 0, return the current switch character, else 
16 * change the switch character to c and return the old 
17 * switch character. The routine is mildly recursive. 

18 */ 

19 

20 union REGS regs; 

21 register int rval = 0; 

22 

23 if(c) 

24 rval = switchar (0); 

25 

26 regs.X.dx = C; 

27 regs.x.axX = Cc ? 0x3701 : 0x3700 ; 

28 

29 intdos( &regs, &regs ); 

30 

31 return rval ? rval : regs.h.dl ; 
a2 .} 

33 

Ql mmm a */ 
35 

36 main( argc, argv ) 

37 char **k argv; 
38 { 

39 argvt+t; 

40 

41 if( argc > 1 ) 

42 printf ("Changing switch character from <tc> to <%c>\n", 
43 switchar (**argv), **argv); 
44 else 

45 printf ("Switch character is <tc>\n", switchar (0) )}; 
46 

47 exit (0); 

48 } 

49 

Listing 3 -- touch.c 

1 #include <stdio.m 

2 #include <fcntl.h 

3 

4 /* TOUCH... = Touches a files date and time so as to make 
>. * the file current. Usage is: 

6 * touch file [file ...] 

a * 

S.* Author: Michael Yam 

oS 2 Public Domain (P) October 1985 
10. * 
ii. * Modified so that a file is created if it doesn't exist - AH 
iz 
13 
YG | Rm */ 
15 


#ifdef LATTICE 


- 
~ 


WWWWWHNNNNNNNNNPRPERE 
POWONPOUDIARUSBWNHrPOWMAD 


#define EXISTS 0 _RAW|O RDWR 
#define CREATE 0 CREAT|EXISTS 


#else 


#include <types.h> 

#include <stat.h> 

#define EXISTS O _BINARY|O RDWR 

#define CREATE 0 CREAT|EXISTS, S_IREAD|S_IWRITE 


main( argc, argv ) 
char ** argv; 


{ 


(continued on next page) 
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Hard Disk 
Intelligent 


VCR Backup 
for AT/XT/PC 


FEATURES 


e High speed microprocessor 
controlled backup (68000) 

e Two channel interface 

e Built in LAN channel 

e Software control of most VCR 
functions including Fast Forward, 
Rewind, and auto backup using VCR 
timer capabilities 

e Economical VHS or Beta formats 
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C CHEST 


LISTING TH REE (Listing continued, text begins on page 18.) 






35 int buffer ‘\0'; 
36 int err lvl = 0; 
37 int file; 










for( ++targv; --argce > 0; +tarov ) 







if( (file = open(*argv, EXISTS)) != -1) 
{ 







/* File exists */ 





read ( file, &buffer, 1); /* read a char */ 









lseek( file, OL, O }# #* go back to.start */ 
47 write( file, &buffer, 1 ); /* write the same char */ 
48 close( file ye 









} 
else if( (file = open(*argv, CREATE)) != -1) 
{ 


/* Created new file. Don't modify it so that 
* it will remain zero length. 
54 ae 








close( file ); 


/* File doesn't exist and can't be created */ 










err lvl =1; 
fprintf(stderr,"Can't touch %s\n", *argv ); 





64 } 








exit ( err lvl ); 


End Listings 






Time and Money. 


We've just done something we know you'll like. Battery Backup, Too 
We've made the SemiDisk far more affordable than 


ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 


At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don’t 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 

It’s Expandable protection during a blackout. Nobody else has this 


bao 
SemiDisk Systems builds fast disk emulators for Hepp rant. feauute.. Why risk valuable data: 


more microcomputers than anyone else. S-100, The Best News 

IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 512K 1Mbyte 2Mbyte 
You can start with as little as 512K bytes, and later  seminisk 1, S-100 $695 $1395 

upgrade to 2 megabytes per board...at your own SemiDisk II, S-100 $995 $1995 
pace, as your needs expand. Up to 8 megabytes per BM PC, XT, AT $595 $1795 
computer, using only four bus slots, max! Software QX-10 $595 $1795 
drivers are available for CP/M 80, MS-DOS, ZDOS, __TRs-g0 II, 12, 16 $695 $1795 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk Battery Backup Unit $150 $150 $150 


turns good computers into great computers. 


Someday you'll get a SemiDisk. 
SEH IDI KY 4 Until then, you'll just have to....wait. 
SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 503-642-3100 


Call 503-646-5510 for CBBS/‘NW, $03-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk equipped computer bulletin boards ( 300/1200 baud) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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> Produce highly optimized code 
Complete development environment: Assembler, 
Linking and Downline Loaders, Runtime Mle) e-l elt 
Available for Motorola, DEC, and Alcyon host 


computers 
The #1 choice for compact, fast MC680X0 code 


$1495 for C68 (Motorola host) 
$2295 for C68/020 (Motorola host) 


5010 Shoreham Place 
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corporation (619) 587-1155 TELEX 5106004947 
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IBM/AT/XT/PC- 8mz 
No Wait States 


FEATURES 


e 64K-256K RAM 
e 2K-8K EPROM/ Static Ram 
e 2 Serial Ports 

Async/Sync/Bisync Communications 
e Real Time Clock 
e Memory-mapped Dual-port BUS 
e On-board/Remote Reset NMi capability 
e Up To 32 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
e Less Than Full Size Board 

(will fit other compatables.) 


SOFTWARE 


e ZP/M tm CP/M Emulation Software 
(Supports Most CP/M Software) 

e Multiuser Capability if Used As A 
Slave Processor 


IBM 1s a registered trademark of intermational Business Machines 
CPM /801s a registered trademark of Digital Research Corp 
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LISTING ONE (Text begins on page 24.) 


elijah-brown father-of robert-brown-sr 
robert-brown-sr father-of robert-brown-jr 
john-mccollister father-of lavenia-mccollister 
isam-mccollister father-of john-mccollister 
mr-holt father-of bettie-holt 
elias-presley father-of mMargret-presley 
robert-brown-jr father-of robert-brown-iii 
paul-h-sewall father-of virginia-sewall 
paul-h-sewall father-of paul-sewall-jr 
paul-sewall-jr father-of peter-sewall 
paul-sewall-jr father-of dee-dee-sewall 
paul-sewall-jr father-of mark-sewall 
paul-sewall-jr father-of paul-sewall-iii 
robert-brown-jr father-of kenneth-brown 
robert-brown-sr father-of amos-trice-brown 
robert-brown-sr father-of james-elro-brown 
clarence-bailey-compton father-of elanor-compon 
george-washington-compton father-of clarence-bailey-compton 
samuel-compton father-of george-washington-compton 
henry-sewall father-of paul-h-sewall 
dr-james-d-nelson father-of rachel-nelson 
robert-sewall father-of henry-sewall 
paul-hebert father-of evelina-hebert 
harry-breeden father-of x if 

dorothy-wallace mother-of x 
berke-breeden father-of harry-breeden 
john-wallace father-of dorothy-wallace 
robert-brown-iii father-of krystl-raquelle-brown 
paul-sewall-jr father-of robert-sewall-ii 
danny-crider father-of amy-crider 
bill-skirvin father-of marty-skirvin 
bill-skirvin father-of rodney-skirvin 
tommy-breeden father-of thomas-andrew-breeden 
tommy-breeden father-of suzanne-breeden 
john-alsop father-of joy-alsop 
lester-stevens father-of geneva-stevens 
strawder-breeden father-of daren-breeden 
daren-breeden father-of shaun-breeden 
strawder-breeden father-of deidra-breeden 
robert-bishop father-of krystal-bishop 
robert-bishop father-of tiffany-bishop 
robert-brown-sr father-of opal-brown 
strawder-breeden father-of deva-breeden 
strawder-breeden father-of stephanie-breeden 
johnny-wilson father-of jonathan-wilson 
lester-stevens father-of geneva-stevens 
bettie-holt mother-of lavenia-mccollister 
miss-hornsby mother-of robert-brown-sr 
elizabeth-arthur mother-of john-mccollister 
margret-e-presley mother-of betty-holt 
virginia-sewall mother-of robert-brown-iii 
elanor-compton mother-of virginia-sewall 
lilian-givens mother-of x if 

paul-sewall-jr father-of x 
virginia-sewall mother-of kenneth-brown 
lavenia-mccollister mother-of amos-trice-brown 
lavenia-mccollister mother-of james-elro-brown 
sarah-virginia-sanford mother-of elanor-compton 
mary-eliza-sanford mother-of clarence-bailey-compton 
rachel-nelson mother-of paul-h-sewall 
jane-kirk mother-of rachel-nelson 
evelina-hebert mother-of henry-sewall 
eugina-hamilton mother-of evelina-hebert 
dorothy-wallace mother-of darlene-breeden 
dorothy-wallace mother-of willena-breeden 
dorothy-wallace mother-of karen-breeden 
dorothy-wallace mother-of bonnie-breeden 
dorothy-wallace mother-of tommy-breeden 
dorothy-wallace mother-of dorothy-breeden 
dorothy-wallace mother-of brenda-breeden 
dorothy-wallace mother-of betty-breeden 
dorothy-wallace mother-of strawder-breeden 
flo-marsh mother-of harry-breeden 
christine-xxx mother-of dorothy-wallace 
darlene-breeden mother-of kryst1l-raquelle-brown 
dorothy-breeden mother-of amy-crider 
brenda-breeden mother-of xX if 

bill-skirvin father-of x 
joy-alsop mother-of suzanne-breeden 
joy-alsop mother-of thomas-andrew-breeden 
pauline-davis mother-of joy-alsop 
myrtle-jackson mother-of geneva-stevens 
tammy-xxx mother-of shaun-breeden 
deidra-breeden mother-of krystal-bishop 
deidra-breeden mother-of tiffany-bishop 
lavenia-mccollister mother-of opal-brown 
lavenia-mccollister mother-of robert-brown-jr 
elanor-compton mother-of paul-sewall-jr 
karen-breeden mother-of jonathan-wilson 
geneva-stevens mother-of x if 

strawder-breeden father-of x 
myrtle-jackson mother-of geneva-stevens 
Male (X) if 

X father-of Y 
male (john-viscar) 
male (shaun-breeden) 
female (X) if 

X mother-of Y 
female (willena-breeden) 
female (bonnie-breeden) 
female (karen-breeden) 
female (betty-breeden) 
female (judy-tracey) 
X wife Y if 
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X mother-of Z and 
Y father-of 2 
X husband Y if 
Y wife x 
X parent-of Y if 
X father-of Y 
X parent-of Y if 
X mother-of Y 
X wife-of Y if 
X wife Y 
judy-tracy wife-of tommy-breeden 
X husband-of Y if 
X husband Y 
john-viscar husband-of pauline-davis 
X child-of y if 
Y parent-of xX 
X descendant-of Y if 
X child-of Y 
X descendant-of Y if 
Z child-of Y and 
X descendant-of 2 
X ancestor-of Y if 
X parent-of Y 
X ancestor-of Y if 
Z parent-of Y and 
X ancestor-of 2 
lavenia-mccollister moher-of robert-brown-jr 
X sibling-of y if 
Z mother-of X and 
Z mother-of Y and 
x father-of X and 
x father-of Y and 
Not (X EQ Y) 
X half-sibling-of y if 
Z mother-of X and 
Z mother-of Y and 
Not (X sibling-of Y) and 
Not (X EQ yY) 
X half-sibling-of y if 
Z father-of X and 
Z father-of Y and 
Not (X sibling-of Y) and 
Not (X EQ Y) 
X aunt-or-uncle-of Y if 
Z parent-of Y and 
X sibling-of 2 
X cousin-of Y if 
Z aunt-or-uncle-of X and 
Y child-of z 


End Listing One 


LISTING TWO 


which (X X father-of robert-brown-iii) 
Answer is robert-brown-jr 
No (more) answers 


which (X robert-brown-iii father-of X) 
Answer is krystl-raquelle-brown 
No (more) answers 


which (X X parent-of kryst1l-raquelle-brown) 
Answer is robert-brown-iii 

Answer is darlene-breeden 

No (more) answers 


which (X X descendant-of robert-brown-sr) 
Answer is robert-brown-jr 

Answer is amos-trice-brown 

Answer is james-elro-brown 

Answer is opal-brown 

Answer is robert-brown-iii 

Answer is kenneth-brown 

Answer is krystl-raquelle-brown 

No (more) answers 


which (X X aunt-or-uncle-of robert-brown-iii) 
Answer is amos-trice-brown 

Answer is james-elro-brown 

Answer is opal-brown 

Answer is paul-sewall-jr 

No (more) answers 


which (X X aunt-or-uncle-of krystl-raquelle-brown) 
Answer is kenneth-brown 
Answer is willena-breeden 
Answer is karen-breeden 
Answer is bonnie-breeden 
Answer is tommy-breeden 
Answer is dorothy-breeden 
Answer is brenda-breeden 
Answer is betty-breeden 
Answer is strawder-breeden 
No (more) answers 


which (X robert-brown-iii cousin-of X) 
Answer is peter-sewall 

Answer is dee-dee-sewall 

Answer is mark-sewall 

Answer is paul-sewall-iii 


(continued on page 66) 
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New from Logitech. 


MODULA-2/86 VERSION 2.0 


Professional 
Modula-2 
for $89. 


Now the same powerful tools Micropro used 
to develop its latest word processing system is 
available to you at a new $89.00 price. 


Systems to Fit Your Needs. 


Base Language System 
= Compiler and Linker vi 89 
= Module Library 
Base Language System/8087 
= Inline 8087 code. $129 
Base Language System/512K 
= Full 8087 support. $189 
= Uses RAM to increase speed by 40 to 50 percent. 
= 80186 and 80286 support. 
Run-Time Debugger ¢ 69 


= Monitors the execution of a program with 
user-defined breakpoints or by stepping through 
the program. 

= Symbolically displays the source code, data, 
procedure call chain, and raw memory. 


MODULA-2 Editor 

= Fast on-line Modula-2 syntax check. 

= Can run compiler and linker from the editor. 

= User definable templates for Modula-2 
syntax constructs. 


Utilities Package $ 49 

= Decoders: Disassemble link and load files. 

= Version: Administrate different versions of one program. 

= Post-Mortem Debugger: Debugs a program after 
abnormal termination. 

= Cross Reference: Produces a cross-reference 
listing of a Modula-2 program. 

Sources 

= Sources to customize your system. 

= Run-Time System sources. 

= Some library module sources. 


$59 


$179 


Not Copy Protected 


INTRODUCTORY OFFER 
Through the end of April you get the new 
MODULA-2 Editor for free with any purchase of the 

Base Language System. 

















Building Blocks for 
Tomorrow’s Technology 
Universities are switching to 
LOGITECH MODULA-2. Innovative 
programmers now develop applica- 
tions and products with LOGITECH 
MODULA-2. The most productive 
teams at major companies depend on 
LOGITECH MODULA-2. 

Now you can create your professional software devel- 


opment system using the proven technical sophistication 
of LOGITECH MODULA-2/86. 


To place an order call our special toll free number: 


800-231-7717 


In California: 


800-552-8885 


a . ES I want to create my professional software 
9 development system. Please send me the 


following building blocks: 


BLS $89 © BLS/8087 $129 0 BLS/512K $189 
O RTD $69* O EDITOR $59* 
C1 UTILITIES $49* 0 SOURCES $179* 


*$10 less with the purchase of any Base Language System. 
Please add $5 for shipping and handling. 
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A single company has revolutionized 
the business of language, the language of business, 
and created the exciting new world of electronic 
reference works—Borland! 


Whien isn't bad for a d-year-old. eae 












Turbo Pascal,” our first product, 


now has more than halfa million © 


users, and has become a world- 
wide standard. And that was just 


the beginning. 

Since then, the Turbo Pascal 
family has grown to a family of 9, 
and today we're announcing our 
second language, Turbo Prolog,” the 
natural language of Artificial 
Intelligence. 

We've also introduced amazing 
business productivity tools like 
SideKick,° Traveling SideKick.” 
Reflex, The Analyst,” and 
SuperKey.° 

We broke new ground in 1985 
with Turbo Lightning” It includes 
the Random House® dictionary and 
thesaurus. Turbo Lightning is the 
forerunner of a complete electronic 
reference library, newly joined by 
the Word Wizard,” which solves the 
unsolvable twists, and boggles and 
challenges your mind. Word Wizard 


Turbo Tutor® 

Takes you from basic right 
through advanced program- 
ming concepts and techniques. 
Includes 300-page tutorial and 
source code for every example 
used in the reference manual. 
™ Minimum memory: 128K. 


cee Turbo Turbo Graphix Toolbox” 
Pascal source code Lets you create high-res- 
so you can figure out - olution graphics. Includes 
how the Turbo Light- tools for complex business 
nee a ee aan easy windowing, 
and storing screen images to 
he Sapiens Tae memory. Complete with source 
making software code on disk, ready to compile. 
ie Minimum memory: 128K. 
Turbo Pascal® 3.0 7 
The fastest Pascal compiler, Turbo Database Toolbox 
plus an integrated pro- oilers eer ee 
. Contains complete 
gramming environment. ‘G8CEL VON 
Includes a free MicroCalc™ library of Pascal procedures 
spreadsheet, and 1,200 lines that allows you to search and 
of annotated source code sort data and build powerful 
ready to compile and run. database applications. 


Minimum memory: 128K. 





| 
New | yew! NEW 
; Turbo Prolog™ 
\ The natural lan- 
guage of Artificial 








Borland software library. Turbo 
Prolog is a fifth-generation language 
and probably the most powerful pro- 
gramming language ever conceived. 
Includes a 200-page reference man- 
ual and free GeoBase,” a natural 
query language database with 
commented source code on disk, 
ready to compile. It’s all you need to 
know about Artificial Intelligence at 
& Humanly Intelligent price. 
Minimum memory: 384K. 


Turbo Lightning” 
An electronic 
reference library 
which includes 
the 80,000-word 
Random House 

ee Concise Dictionary 
and the 50,000-word Random House 
Thesaurus. Checks your spelling 
4s you type. Gives you instant 
synonyms. Leads the revolutionary 
way in electronic publishing. 
Minimum memory: 256K. 










= latest product in the 








Word Wizard” 
Intriguing new 
addition to the 
| Turbo Lightning 
_ Library.” Solves 
unsolvable 

" crosswords, and 
challenges your word skills and 
ability to break codes and ciphers. 
Scrambles, twists, turns, and boggles 
your mind. Includes Turbo Pascal 
source code and all the technical 
information you'll need to figure out 
the “nuts and bolts” of the Turbo 
Lightning access system. Minimum 
memory: 256K. 


SuperKey” 


enhancer for your 
=| IBM PC. With eagy- 


can turn 1,000 
= Keystrokes into 1. 
Also includes powerful encryption 
technology that keeps confiden- 
tial files confidential; locks your 
keyboard with secret password 
protection. (Because of encryption 
technology, SuperKey is under a US 
Government export ban.) Minimum 
memory: 128K. 









Amazing keyboard 


to-write macros that 


Minimum memory: 128K. 


SideKick® 
Powerful desktop 
management 
program. #1 best- 
seller for the IBM® 
PC. Includes 
notepad, calculator, 


appointment scheduler, telephone 
directory and autodialer, and ASCII 
table. RAM-resident, it’s always there 
to help, and stays in the background 
while you run other programs. One 
keystroke activates it. Minimum 
memory: 128K. 


BinderWare® that 
includes an organ- 
izer, a binder, a 
software program, 
and a report gen- 

ill erator that picks 
your SideKick’s electronic brain, 
then prints out your appointments, 
daily/weekly/monthly/yearly cal- 
endar, phone lists, mailing labels, or 
whatever else you need when you're 
away from your desk. It’s the smart 
new way to take your computer with 
you without taking your computer 
with you. Minimum memory: 256K. 








Turbo Editor Toolbox™ yew 
It’s all you need to build your 
Own. text editor or word 
processor. Provides all the — 
routines—you decide which 
features you want. Source code 
included. Also includes the 
MicroStar™ text editor with pull- 
down menus and windowing. 
Interfaces directly with Turbo 
Lightning to let you spell-check 
your MicroStar files. Minimum 
memory: 192K. 


\ 
Turbo GameWorks" NE" 
Reveals the secrets and 
strategies of game theory. 
Includes source code so you 
can write your own games. 
Gives you ready-to-play Chess, 
Bridge, and Go-Moku, an 
ancient Japanese game that 
will provide hours of fascinating 
diversion. Even if you don’t 
want to write your own games, 
it’s a terrific value. Minimum 
memory: 192K. 


_ Ment and analysis. 
Shows your spread- 

= ~ sheet data from 

1-2-3° dBase,® and others in five 
graphic forms—including bar charts, 
pie charts, scatter plots, line graphs, 
and stacked bar charts. Answers What 
if? questions. Minimum memory: 384K. 
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Turbo Prolog 1.0 
Programming System features 






Compiler 
Incremental compiler generat- 
ing native in-line code and 
linkable object modules. The 
linking format is compatible 
with the PC-DOS linker. Large 
memory model support. 
Compiles over 2500 lines per 
minute on standard IBM PC. 











Interactive editor 
System includes a powerful 
full-screen text editor. If the 
compiler detects an error, the 
editor automatically positions 
the cursor appropriately in the 
source code. At run-time, Turbo 
Prolog programs can call the 
editor and view the running 
program’s source code. 


Type system 
A flexible object-oriented type 
system. is supported. 


Windowing support 
L< System supports both graphic 
Q\ and text windows. 
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Input/Output 

Full I/O facilities including 
formatted I/O, streams, and 
random access files. 


Numeric Ranges 


Integers: —32768 to 32767; 
Reals: IE—307 to IE+308 
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Turbo Prolog and GeoBase are trademarks and Turbo Pascal is a registered trademark of 
Borland International. IBM and AT are registered trademarks of International Business 
Machines Corp. MS-DOS is a registered trademark of Microsoft Corp. 
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The astonishing fact is that Borland’s 
Turbo Prolog gives you a $4 billion 
value for only $99.95 


More than four billion US dollars have 
already gone into the Japanese efforts to 
develop a Sth-generation super-computer. 

Prolog is probably the most powerful 
computer programming language ever 
conceived—which is perhaps why our 
Japanese friends chose Prolog to be their 
super-computer’s implementation language. 

Without being rude about their efforts, we 
are pleased and proud to announce that 
theyre not even close to achieving the 
performance that Turbo Prolog now brings to 
your standard IBM® PC. 

Turbo Prolog is several 
billion dollars cheaper and 
several times faster than 
the swiftest Japanese 
experimental models. For 
only $99.95, Turbo Prolog 
- makes your desktop IBM PC 
° “ outperform the Japanese 
27 ” 5th-generation computers—and if 

you're using an IBM AT® or equivalent 
machine, you're so far ahead of the Japanese 
that it’s time to say sayonara. 


Turbo Prolog is to Prolog what 
Turbo Pascal’ is to Pascal! 


> Our Turbo Pascal astonished everyone 
?@ who thought of Pascal as “just another 
language.” We changed all that. And 
now Turbo Pascal is the de facto worldwide 
standard, with hundreds of thousands of en- 
thusiasts and users in universities, research 
centers, schools, and with professional pro- 
grammers, students, and hobbyists. 

You can expect at least the same impact 
from Turbo Prolog, because while Turbo Prolog 
is the most revolutionary and natural program- 
ming language, it is also a complete program.- 
ming environment—just like Turbo Pascal. 

Turbo Prolog radically alters and dramatically 
improves the brave new world of artificial 
intelligence—and invites you into that fascina- 
ting universe for a humanly intelligent $99.95. 











i know to answer the question—so you type in 


colors white and green. 








C: His favorite day as a schoolboy was 
Flag Day. 
D: He works on Sundays. 

Then, assuming that you have taught Turbo 
Prolog the right set of rules, your Turbo Prolog” 
deduces that if “A” is true and “B” is true and 
“Q” is true and “D” is true, then the logical 
answer is: 

A: On Sundays, this man probably works 
as a National Football League referee! 


So how does Turbo Prolog work? 


This quick little example shows you how 
Turbo Prolog functions. For the sake of 
example, imagine the following question: 

Q@: What does this man do on Sundays? 

First you would need to tell your Turbo Prolog 
what you already know, and what it needs to 


the information: 
A: He has poor eyesight. 


HORS OL Se ibis Perea the Turbo Prolog’s conclusion, you could teach it to 


come to a completely different conclusion. All 

you need to do is change the information or 

change the rules—which an NFL referee 

would never do! Turbo Prolog’s deductive 
powers are more than elementary, my 

| dear Watson. 


| You get the complete Turbo Prolog 


programming system—including 
GeoBase™ —for only $99.95 


Includes: 

@ The lightning-fast Turbo Prolog 
incremental compiler and the interactive 
Turbo Prolog Editor. 

@ The 200-page Turbo Prolog Reference 
Manual which includes the step-by-step 
Tutorial. 

M@ The free GeoBase™ natural query 
language database including the 
commented source code on disk, ready 
to compile. GeoBase is a complete data- 
base designed and developed around 
US geography. It includes cities, moun- 
, tains, rivers, and highways, and comes 
complete with a natural query lan- 











| or modify it to fit your own interests. 
So don’t delay, don’t waste a 
second—get Turbo Prolog today. 
$99.95 is an amazingly small price 
to pay to become an immediate 
, authority, an instant expert on 
artificial intelligence! The &lst 
century is only one coupon or 
one phone call away! 


| 


Of course, in case you're a referee and resent | 


guage. Use GeoBase immediately as is, | 


TEAR OFF AND INSERT IN ENVELOPE ® | 
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Step-by-step tutorial, demo programs with source code included! 


And now Borland introduces 
Turbo Prolog, the natural language 
of Artificial Intelligence. 


- a | S 












Prolog is probably the most 
powerful computer programming 
language ever conceived, which is 
why we've made it our second 
language—and “turbocharged” it to 
create Turbo Prolog.” 

Our new Turbo Prolog brings 
supercomputer power to your IBM” 
PC and introduces you step-by-step to 
the fascinating new world of Artificial 
Intelligence. And does all this for an 
astounding $99.95. 
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—— Turbo Pascal the way you # 
m, Turbo Prolog is to > Even if you've never could compare Turbo Pascal to i 
p- CS machine language a 
’ Prolog what Turbo = programmed before, 
Pascal® is to Pascal! our free tutorial will You get the complete 
Our Turbo Pascal astonished get you Started right away Turbo Prolog 
everyone who thought of Pascal You'll get started right away programming system 
as “just another language.’We because we have included a for only $99.95 
changed all that—and now Turbo complete step-by-step tutorial as You get a complete Turbo 
Pascal is the de facto worldwide _ part of the 200-page Turbo Prolog Prolog development system 
standard, with hundreds of Reference Manual. Our tutorial —_ including: 
, thousands of enthusiasts —_ will take you by the hand and = The lightning-fast Turbo Prolog 
epee andusersin teach you everything youre likely incremental compiler and the 
universities, to need to know about Turbo interactive Turbo Prolog editor. 
research Prolog and artificial intelligence. » The 200-page reference 
centers, For example: once you ve manual which includes the step- 
schools, completed the tutorial, you'll be —_y-step Turbo Prolog tutorial. 
and with pro- able to design yourown expert —_ = The free GeoBase™ natural 
fessional program- ystems utilizing Turbo Prolog’s —_ query language database 
mers, students, powerful problem-solving including commented source 
ill and hobbyists. capabilities. code on disk—ready to compile. 
You can expect at least the Think of Turbo Prolog as a GeoBase is a complete database 
same impact from Turbo Prolog, high-speed electronic detective. gesigned and developed around 
because while Turbo Prolog isthe First you feed it informationand 1S, geography. It includes cities, 
most revolutionary and natural teach it rules. Then Turbo Prolog mountains, rivers, and highways, 


programming language, it is also “thinks” the problem through —_and comes complete with natural 


a complete development environ- and comes up with all the query language. Use GeoBase 
ment—Just like Turbo Pascal. reasonable answers—almost immediately “as is,” or modify it 
Turbo Prolog radically alters instantly. to fit your own interests. 
and dramatically improves the If you think that this is So don’t delay—don’t waste a 
brave new world of artificial amazing, you just need to second—get Turbo Prolog now. 
intelligence—and invites you into remember that Turbo Prologis& $99.95 is an amazingly small 
that fascinating universe for a Sth-generation language—and —_price to pay to become an 
humanly intelligent $99.95. the kind of language that 2lst immediate authority—an instant 
century computers will use expert on artificial intelligence! 
routinely. In fact, you can The 2lst century is only one 
compare Turbo Prolog to phone call away. 
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To order by phone, or for a dealer nearest you, 

































































call (800) 255-8008; 
in CA call (800) 742-1133 

Copies Product Price Totals 
_— Turbo Pascal 3.0 $69.95 $ 
_— Turbo Pascal w/8087 $109.90 $ 
__ Turbo Pascal w/BCD $109.90 $ 
_— Turbo Pascal w/8087, BCD $124.95 $ 
_— Turbo Database Toolbox $54.95 $ 
__. Turbo Graphix Toolbox $54.95 $ 
_— Turbo Tutor $34.95 $ 
_— Turbo Editor Toolbox $69.95 $ 
_— Turbo GameWorks $69.95 $ 
_— Turbo Lightning $99.95 $ 
_— Turbo Prolog $99.95 $ 
_— Word Wizard $69.95 $ 
_— Reflex, The Analyst $99.95 $ 
_— SideKick $84.95 $ 
__ Traveling SideKick "$69.95 $ 
__ SuperKey $69.95 $ 
_—— Turbo Lightning 

Word Wizard “$149.95 $ 
_—— SideKick, 

Traveling SideKick $125.00 $ 
__ SideKick, SuperKey 

Traveling SideKick "$175.00 $ 
_— Turbo Jumbo Pack "$245.00 $ 

Outside USA add $10 per copy 

CA and MA res. add sales tax $ 

Amount enclosed $ 





Prices include shipping to all US cities. 

Carefully describe your computer system: 

Mine is: __ 8-bit — 16-bit 

/ use: __ PC-DOS __ MS-DOS 
_CP/M-80 __ CP/M-86 

My computer's name and model is: 


The disk size | use is; 03%" 0 5%" 0 8" 
Payment: VISA MC Bank Draft 
Credit card expiration date __/__/_ 


Card # | | | | | | 
pee eed od thd a 


NOT COPY-PROTECTED 8!-1042 
**60-DAY MONEY-BACK GUARANTEE 


Check 


Name: 


Shipping Address: 





City: 
State: 


TONED INORG! ja Se 
CODs and purchase orders WILL NOT be accepted by Borland. 
Outside USA make payment by bank draft, payable in US dollars 
drawn on a US bank. 

“Limited Time Offer 

**YES, within 60 days of purchase, if this product does not 
pertorm in accordance with our claims, call our customer service 
department and we will gladly arrange a refund. 


Zip: 


Turbe Prolog 1.0 Technical Specifications 
Programming System Features 


Compiler: Incremental complier generating native in-line code 
and linkable object modules. The linking format is compatible 
with the PC-DOS linker. Large memory model support. Compiles 
over 2500 lines per minute on a standard IBM PC. 

interactive Editor: The system includes a powerful interactive 
full-screen text editor. If the compiler detects an error, the editor 
automatically positions the cursor appropriately in the source 
code. At run-time, Turbo Prolog programs can call the editor, 
and view the running program's source code. 

Type System: A flexible object-oriented type system is 
supported . 

Windowing Support: The system supports both graphic and 
text windows. 

Input/Output: Full 1/0 facilities, including formatted 1/0, 
streams, and random access files. 

Nemeric Ranges: Integers: -32768 to 32767, Reals: 1-307 
to 1£+308. 

Debugging: Complete built-in trace 
debugging capabilities allowing single: 
stepping of programs. 


















LISTING TWO (Listing continued, text begins on page 24.) 


Answer is robert-sewall-ii 

No (more) answers 

which (X krystl-raquelle-brown cousin-of x) 
Answer is jonathan-wilson 
Answer is thomas-andrew-breeden 
Answer is suzanne-breeden 
Answer is amy-crider 

Answer is marty-skirvin 

Answer is rodney-skirvin 
Answer is daren-breeden 

Answer is deidra-breeden 
Answer is deva-breeden 

Answer is stephanie-breeden 

No (more) answers 


End Listing Two 


LISTING THREE 


((cousin-of xX yY) 
(aunt-or-uncle-of Z xX) 
(child-of Y 2)) 

((aunt-or-uncle-of X Y) 
(parent-of Z Y) 
(sibling-of xX 2)) 

((half-sibling-of xX yY) 
(mother-of Z X) 

(mother-of Z Y) 

(NOT 2? ((sibling-of x Y))) 

(NOT 2 ((EQ X Y)))) 
((half-sibling-of x y) 

(father-of 2 x) 

(father-of Z yY) 

(NOT ? ((sibling-of x Y))) 

(NOT 2 ((EQ X Y)))) 

((male X) 

(father-of xX yY)) 

((male john-viscar) ) 

((male shaun-breeden) ) 

((female xX) 

(mother-of X Y)) 

((female willena-breeden) ) 

((female bonnie-breeden) ) 

((female karen-breeden) ) 

((female betty-breeden) ) 

((female judy-tracey) ) 

((wife-of x Y) 

(wife X Y)) 

((wife-of judy-tracy tommy-breeden) ) 

((wife X yY) 

(mother-of X 2) 

(father-of Y 2)) 

((husband xX Y) 

(wife Y X)) 

((husband-of xX yY) 

(husband X Y)) 
((husband-of john-viscar pauline-davis) ) 
((descendant-of xX yY) 

(child-of x y)) 
((descendant-of X Y) 

(child-of 2 yY) 

(descendant-of X 2Z)) 
((child-of x yY) 

(parent-of Y X)) 
((parent-of X yY) 

(father-of xX Y)) 
((parent-of X Y) 

(mother-of X Y)) 
((ancestor-of X Y) 

(parent-of xX yY)) 
({ancestor-of X Y) 

(parent-of 2 yY) 

(ancestor-of X 2)) 
((moher-of lavenia-mccollister robert-brown-jr) ) 
((father-of elijah-brown robert-brown-sr) ) 


((father-of 
( (father-of 
((father-of 
((father-of 
((father-of 
( (father-of 
((father-of 
((father-of 
((father-of 
((father-of 
((father-of 
((father-of 
((father-of 
((father-of 
((father-of 
( (father-of 
((father-of 
((father-of 
( (father-of 
( (mother-of 
{ (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 


robert-brown-iii krystl-raquelle-brown) ) 
paul-sewall-jr robert-sewall-ii) ) 
danny-crider amy-crider) ) 
bill-skirvin marty-skirvin) ) 
bill-skirvin rodney-skirvin) ) 
tommy-breeden thomas-andrew-breeden) ) 
tommy-breeden suzanne-breeden) ) 
john-alsop joy-alsop) ) 
lester-stevens geneva-stevens) ) 
strawder-breeden daren-breeden) ) 
daren-breeden shaun-breeden) ) 
strawder-breeden deidra-breeden) ) 
robert-bishop krystal-bishop) ) 
robert-bishop tiffany-bishop) ) 
robert-brown-sr opal-brown) ) 
strawder-breeden deva-breeden) ) 
strawder-breeden stephanie-breeden) ) 
johnny-wilson jonathan-wilson) ) 
lester-stevens geneva-stevens) ) 
bettie-holt lavenia-mccollister) ) 
miss-hornsby robert-brown-sr) ) 
elizabeth-arthur john-mccollister) ) 
margret-e-presley betty-holt) ) 
virginia-sewall robert-brown-iii) ) 
elanor-compton virginia-sewall) ) 
lilian-givens x) 


(father-of paul-sewall-jr X)) 


{ (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 


_((mother-of 


( (mother-of 
{ (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
{ (mother-of 
( (mother-of 
{ (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 


virginia-sewall kenneth-brown) ) 
lavenia-mccollister amos-trice-brown) ) 
lavenia-mccollister james-elro-brown) ) 
sarah-virginia-sanford elanor-compton) ) 
mary-eliza-sanford clarence-bailey-compton) ) 
rachel-nelson paul-h-sewall)) 

jane-kirk rachel-nelson) ) 
evelina-hebert henry-sewall)) 
eugina-hamilton evelina-hebert) ) 
dorothy-wallace darlene-breeden) ) 
dorothy-wallace willena-breeden) ) 
dorothy-wallace karen-breeden) ) 
dorothy-wallace bonnie-breeden) ) 
dorothy-wallace tommy-breeden) ) 
dorothy-wallace dorothy-breeden) ) 
dorothy-wallace brenda-breeden) ) 
dorothy-wallace betty-breeden) ) 
dorothy-wallace strawder-breeden) ) 
flo-marsh harry-breeden) ) 

christine-xxx dorothy-wallace) ) 
darlene-breeden krystl-raquelle-brown) ) 
dorothy-breeden amy-crider) ) 
brenda-breeden X) 


(father-of bill-skirvin x)) 


( (mother-of 


((mother-of 4 


( (mother-of 
{ (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 
( (mother-of 


joy-alsop suzanne-breeden) ) 
oy~alsop thomas-andrew-breeden) ) 
pauline-davis joy-alsop) ) 
myrtle-jackson geneva-stevens) ) 
tammy-xxx shaun-breeden) ) 
deidra-breeden krystal-bishop) ) 
deidra-breeden tiffany-bishop) ) 
lavenia-mccollister opal-brown) ) 
lavenia-mccollister robert-brown-jr) ) 
elanor-compton paul-sewall-jr)) 
karen-breeden jonathan-wilson) ) 
geneva-stevens X) 


(father-of strawder-breeden X)) 


( (mother-of 


myrtle-jackson geneva-stevens) ) 


((sibling-of X yY) 
(mother-of Z xX) 
(mother-of Z Y) 
(father-of x xX) 
(father-of x yY) 
(NOT ? ((EQ X Y)))) 


End Listing Three 


LISTING FOUR 


( (father-of 
((father-of 
((father-of 
((father-of 
((father-of 
( (father-of 
( (father-of 
((father-of 
((father-of 
((father-of 
((father-of 
( (father-of 
((father-of 
((father-of 
( (father-of 
( (father-of 
( (father-of 
((father-of 
( (father-of 
((father-of 
((father-of 
((father-of 
((father-of 


robert-brown-sr robert-brown-jr) ) 
john-mccollister lavenia-mccollister) ) 
isam-mccollister john-mccollister) ) 
mr—-holt bettie-holt) ) 

elias-presley margret-presley) ) 
robert-brown-jr robert-brown-iii) ) 
paul-h-sewall virginia-sewall) ) 
paul-h-sewall paul-sewall-jr) ) 
paul-sewall-jr peter-sewall) ) 
paul-sewall-jr dee-dee-sewall) ) 
paul-sewall-jr mark-sewall) ) 
paul-sewall-jr paul-sewall-iii)) 
robert-brown-jr kenneth-brown) ) 
robert-brown-sr amos-trice-brown) ) 
robert-brown-sr james-elro-brown) ) 
clarence-bailey-compton elanor-compon) ) 
george-washington-compton clarence-bailey-compton) ) 
samuel-compton george-washington-compton) ) 
henry~sewall paul-h-sewall) ) 
dr-james-d-nelson rachel-nelson) ) 
robert-sewall henry-sewall) ) 
paul-hebert evelina-hebert) ) 
harry-breeden X) 


(mother-of dorothy-wallace xX)) 


( (father-of 
((father-of 
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berke-breeden harry-breeden) ) 
john-wallace dorothy-wallace) ) 





(DEFUN * (NLAMBDA xX 
NIL )) : 
(The function (CAAR X means (CAR (CAR X)). This convention is 
extended to (CDAR X) means (CDR (CAR X)), etc. *) 


(DEFUN CONCAT (LAMBDA (P Q) 
(* concatenate 2 lists *) 
((NULL P) Q) 
(CONS (CAR P) (CONCAT (CDR P) Q)) )) 

(DEFUN PURGE (LAMBDA (L) 

(* purge a list of duplicate members *) 
((NULL L) NIL) 
((MEMBER (CAR L) (CDR L)) 
(PURGE (CDR L)) ) 
(CONS (CAR L) (PURGE (CDR L))) )) 


(DEFUN JOIN (LAMBDA (L M) 
(* form the set union of 2 lists *) 
(PURGE (CONCAT L M)) )) 


(DEFUN MEET (LAMBDA (L M) 


(* form the set intersection of 2 lists *) 
(PURGE (COMMON L M)) )) 


Dr. Dobb’s Journal, April 1986 











(DEFUN COMMON (LAMBDA (L M) 
(* form the set intersection of 2 lists with possible 
duplicate entries *) 
((NULL L) NIL) 
((MEMBER (CAR L) M) 
(CONS (CAR L) (COMMON (CDR L) M)) ) 
(COMMON (CDR L) M) )) 


(DEFUN DEF (LAMBDA (V E) 
(* determine whether the variable Vv is defined in the 
environment E *) 
((NULL E) NIL) 
( (EQUAL V (CAAR E)) T) 
(DEF V (CDR E)) )) 


(DEFUN IMM (LAMBDA (V E) 
(* return the immediate successor of the variable V in the 
environment E *) 
((NULL E) NIL) 
( (EQUAL V (CAAR E)) 
(CDAR E) ) 
(IMM V (CDR E)) )) 


(DEFUN ULT (LAMBDA (V E) 
(* return the ultimate successor of the variable V in the 
environment E *) 
( (DEF V E) 
(ULT (IMM V E) E) ) 
Vv )) 


(DEFUN PAIRP (LAMBDA (P) 
(* determine if P is a pair (not an atom) *) 
( (ATOM P) NIL) 
T.}) 


(DEFUN VARIABLEP (LAMBDA (V) 
(* determine if V is a variable *) 
(EQ (CAR (UNPACK V)) '*) )) 


(DEFUN RECREAL (LAMBDA (F E) 

(* return the recursive realization of a formula F in the 
environment E which amounts to instantiating all variables 
from the environment *) 

((PAIRP F) 

(CONS (RECREAL (CAR F) E) (RECREAL (CDR F) E)) ) 

( (DEF F E) 


(RECREAL (ULT F E) E) ) 
E) 


(DEFUN OCCURS (LAMBDA (V X E) 
(* see if the variable V occurs in the term X under the 
environment E *) 
((VARIABLEP X) 
((DEF X EB) 
(OCCURS V (IMM X E) E) ) 
((EQ V X) T) >) 
( (ATOM X) NIL) 
( (OCCURS V (CAR X) E) T) 
(OCCURS V (CDR X) E) )) 


(DEFUN UNIFY (LAMBDA (A B E) 

(* unify 2 expressions (A and B) in the environment E by 
extending E to the most general unifier of A and B and 
returning that environment *) 

((EQ E 'IMPOSSIBLE) 

‘IMPOSSIBLE ) 
(EQUATE (ULT A E) (ULT BE) £E) )) 


(DEFUN EQUATE (LAMBDA (A B E) 

(* auxilliary routine to UNIFY so that the flow of control 
ping-pongs recursivly between UNIFY and EQUATE to 
construct the most general unifier of A and B *) 

(({EQUAL A B) E) 

((VARIABLEP A) 

((OCCURS A B E) 
‘IMPOSSIBLE ) 
(CONS (CONS A B) E) ) 

((VARIABLEP B) 

((OCCURS B A E) 
"IMPOSSIBLE ) 
(CONS (CONS B A) E) ) 

( (ATOM A) 

‘IMPOSSIBLE ) 
( (ATOM B) 
‘IMPOSSIBLE ) 
(UNIFY (CDR A) (CDR B) (UNIFY (CAR A) (CAR B) E)) )) 


(DEFUN VARS (LAMBDA (X) 
(* return a list of all the variables found in the expression 
x *) 
((NULL X) NIL) 
((VARIABLEP X) X) 


(continued on next page) 


NEON: TURN ON THE FULL POWER OF YOUR MACINTOSH 


THIS MESSAGE IS FOR BEGINNING PROGRAMMERS, TOO! 

Hidden within your Mac is the programming power, flexibility, 
and speed to match your imagination. Neon is your key to this 
object-oriented world. Based on the same design philosophy as 
the Mac itself, Neon lets you create and command objects — 
program modules that you build, perfect, and add to your 
personal collection of tools. In this Smalltalk-like environment, 
you wield the power to quickly assemble and test ideas, tuning 
as you go for maximum speed and efficiency. 1 Neon now 
includes full floating point support. An integrated Neon As- 
sembler is also available as an add-on product. L) Neon is easy 


to work with and comes with a comprehensive manual by 





Danny Goodman. () Created by Kriya Systems, Inc. for the 
development of our Typing Tutor III™ program, Neon is your 
answer for professional software development. With Neon, 
there are no licensing fees. Ever. For the MacIntosh developer, 


Neon is the best choice. 


To choose, call 1-800-34-KRIYA (In Virginia, 703-430-8800 








) with Visa/MC. Or Write KriyaSystems, Inc., 


Six Export Drive, Sterling, VA 22170. Neon, $195; Neon Assembler, $50. Add $5 shipping for each. 


Neon and Typing Tutor III are trademarks of Kriya Systems, Inc. Apple Macintosh is a trademark of Apple Computers, Inc. 


Circle no. 100 on reader service card. 
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LISTING FOUR (Listing continued, text begins on page 24.) 


( (ATOM X) NIL) 
(CONCAT (VARS (CAR X)) (VARS (CDR X))) )) 
(DEFUN VARIANT (LAMBDA (Q E D) e 
(* returns a variant of D such that all variables are distinct 
from those of Q in the environment E *) 
(RECREAL D (MAKENV (VARS Q). (VARS E) (VARS D) ):) 3 


(DEFUN MAKENV (LAMBDA (Q E D) 

(* make an environment such that the instantiation of D in 
this environment will have no variables in common with the 
instantiation of Q in E *) 

(MAKENV1 (MEET D (JOIN Q E)) (JOIN (JOIN QE) D)) )) 


(DEFUN MAKENV1 (LAMBDA (P Q V) 

(* does the dirty work for MAKENV and VARIANT by generating an 
environment that sticks asterisks onto the front of all 
variable names in Q that also occur in P (V is a local 
temporary variable) *) 

((NULL P) NIL) 

( (ATOM P) 

(SETQ V P) 
( LOOP 
((NOT (MEMBER V Q))) 
(SETQ V (PACK (CONS '* (UNPACK V))}) ) 
(CONS P V) ) 
(CONS (MAKENV1 (CAR P) Q) (MAKENV1 (CDR P) Q)) )) 


(DEFUN GETLIT (LAMBDA (CL N) 

(* get the Nth litteral in the clause CL and return it both as 
the functions value and in the free variable LITG along 
with its sign in the free variable SIGNG *) 

(SETQ LITG (CAR (NTH CL N))) 

(SETQ SIGNG (NOT (EQ (CAR LITG) '~))) 

((NOT (NULL SIGNG)) LITG) 

(CADR LITG) )) 


(DEFUN FRONT (LAMBDA (C N) 
(* return all elements in the clause C in front of element N 
“7 
((NULL C) NIL) 
((ZEROP N) NIL) 
((EQ N 1) NIL) 
(CONS (CAR C) (FRONT (CDR C) (SUB1 N))) )) 


(DEFUN BACK (LAMBDA (C N) 
(* return all elements in clause C in back of element N *) 
(NTH C (ADD1 N)) )) 


(DEFUN FACTOR (LAMBDA (C Pl Nl Sl P2 N2 S2 ENV) 
(* returns a factored version of the clause C *) 
(SETQ ENV 'IMPOSSIBLE) 

(SETQ Nl 0) 
(LOOP 
(SETQ Nl (ADD1 N1l)) 
((GREATERP Nl (LENGTH C)) 
"IMPOSSIBLE ) 
(GETLIT C Nl) 
(SETQ Pl LITG) 
(SETQ S1 SIGNG) 
(SETQ N2 Nl) 
( ( (LOOP 
(SETQ N2 (ADD1 N2)) 
((GREATERP N2 (LENGTH C))) 
(GETLIT C N2) ‘ 
(SETQ P2 LITG) 
(SETQ S2 SIGNG) 
( ((EQ S1 S2) 
(SETQ ENV (UNIFY Pl P2)) ) ) 
((NOT (EQ ENV 'IMPOSSIBLE) ) 
(SETQ C (RECREAL C ENV)) 
(SETQ C (APPEND (FRONT C Nl) (BACK C NE) 3) 7") 
((NOT (EQ ENV ‘'IMPOSSIBLE))) ) 
((NOT (EQ ENV 'IMPOSSIBLE)) C) 
"IMPOSSIBLE )) 


(DEFUN BINRES (LAMBDA (CL1 Nl CL2 N2 ENV LIT1 SGN1 LIT2 SGN2 Ll 
L2 LITG SIGNG) 

(* compute the binary resolvent of clause CL1 litteral number 
Nl with clause CL2 litteral number N2 and return the 
instantiated resolvent *) 

(SETQ CL2 (VARIANT CL1 ENV CL2)) 

(SETQ LIT1 (GETLIT CL1 N1)) 

(SETQ Ll LITG) 

(SETQ SGN1 SIGNG) 

(SETQ LIT2 (GETLIT CL2 N2)) 

(SETQ L2 LITG) 

(SETQ SGN2 SIGNG) 

({EQ SGN1 SGN2) NIL) 

(SETQ ENV (UNIFY LIT1 LIT2 ENV) ) 

((EQ ENV 'IMPOSSIBLE) 

‘IMPOSSIBLE ) 

(RECREAL (APPEND (FRONT CL1 Nl) (BACK CL1 Nl) (FRONT CL2 N2) 

(BACK CL2 N2)) ENV) )) 


(DEFUN PARAMOD (LAMBDA (FROM INTO PF F PI I SEL SUB ENV SWAP PM) 
(* return the paramodulant of the FROM clause into the INTO 
Clause *) 
(SETQ INTO (VARIANT FROM NIL INTO) ) 
(SETQ PM 'IMPOSSIBLE) 
(SETQ PF 0) 
(LOOP 
(SETQ PF (ADD1 PF)) 
(SETQ F (CAR (NTH FROM PF))) 
((NULL F)) 
((EQ (CAR F) '=) 
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(SETQ SEL (CADR F)) 
(SETQ SUB (CADDR F)) 
(SETQ PI 0) 
( LOOP 
(SETQ PI (ADD1 PI)) 
(SETQ I (CAR (NTH INTO PI))) 
((NULL I)) 
(SETQ ENV (UNIFY SEL I)) 
( ((EQ ENV 'IMPOSSIBLE) 
(SETQ ENV (UNIFY SUB I)) 
(SETQ SUB SEL) ) ) 
((NOT (EQ ENV 'IMPOSSIBLE) ) 
(SETQ FROM (RECREAL FROM ENV) ) 
(SETQ INTO (RECREAL INTO ENV) ) 
( ((NOT (NULL SWAP) ) 
(SETQ SUB SEL) ) ) 
(SETQ INTO (APPEND (FRONT INTO PI) (LIST SUB) (BACK 
INTO PI))) 
(SETQ FROM (APPEND (FRONT FROM PF) (BACK FROM PF))) 
(SETQ PM (APPEND FROM INTO)) ) ) ) 
((NOT (EQ PM 'IMPOSSIBLE))) ) 
PM )) 


End Listing Four 


LISTING FIVE 


(SETQ Cl '((F *X))) 
((F *X)) 

(SETQ C2 '((G *X))) 
((G *X)) 

(SETQ E (UNIFY Cl C2)) 
IMPOSSIBLE 

(RECREAL Cl E) 

((F *X)) 

(RECREAL C2 E) 

((G *X)) 


(SETQ C2 '((F A))) 

((F A)) 

(SETQ E (UNIFY Cl C2)) 
((*X . A)) 

(RECREAL Cl E) 

((F A)) 

(RECREAL C2 E) 

((F A)) 


(SETQ C2 '((F (G *Y)))) 
((F (G *Y))) 

(SETQ E (UNIFY Cl C2)) 
((*X G *Y)) 

(RECREAL Cl E) 

((F (G *Y))) 

(RECREAL C2 E) 

((F (G *Y))) 


(SETQ C2 '((F (F *X)))) 
((F (F *X))) 

(SETQ E (UNIFY Cl C2)) 
IMPOSSIBLE 

(RECREAL Cl E) 

((F *X)) 

(RECREAL C2 E) 

((F (F *X))) 


(SETQ Cl '((F *X A) (GB *Y))) 
((F *X A). AG B *Y)) 

(SETQ C2 '((F B *Y) (G *X *2Z))) 
((F B *Y) (G6 *X *Z)) 

(SETQ E (UNIFY Cl C2)) 

((*Z . A) (*Y . A) (*X . B)) 
(RECREAL Cl E) 

((F B A) (G BA)) 

(RECREAL C2 E) 

((F B A) (G BA)) 


End Listing Five 


LISTING SIX 


(SETQ CL1 '((F *X) (~ (G *Y A)) (F B))) 
((F *X) (~ (G *Y A)) (F B)) 


(FACTOR CL1) 
(> CG: FY CA). Ge -B)) 


(SETQ CL2 '((G B *X) (F *Y))) 
((G B *X) (F *Y)) 


(BINRES CL1 2 CL2 1) 
SPR): (FB): (e **Y) i 


(SETQ FROM '((F *X) (= (G *Y A) (F *Y)) (F B))) 
((F *X) (= (G *¥ A) (F *Y)) (F B)) 


(SETQ INTO CL2) 
((G B *X) (F *Y)) 


(PARAMOD FROM INTO) 
((F *X) (F B) (F *Y) (F **Y)) 


End Listing Six 
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LISTING SEVEN 


(DEFUN VARIABLEP (LAMBDA (V) 
(* determine if V is a variable: if it starts with lower-case 
it is *) 
( (ATOM V) 
(GREATERP (ASCII (CAR (UNPACK V))) (ASCII *‘)) ) 
NIL )) 


(DEFUN LPAR (LAMBDA (R) 
(* return left parent *) 
(CAR R) )) 


(DEFUN LLIT# (LAMBDA (R) 
(* return left litteral number *) 
(CADR R) )) 


(DEFUN RPAR (LAMBDA (R) 
(* return right parent *) 
(CADDR R) )) 


(DEFUN RLIT# (LAMBDA (R) 
(* return right litteral number *) 
(CAR (CDDDR R)) )) 


(DEFUN NLITS (LAMBDA (R) 
(* return number of litterals *) 
(CADR (CDDDR R)) )) 


(DEFUN MAXNDX (LAMBDA (R) 
(* return maximum index *) 
(CADDR (CDDDR R)) )) 


(DEFUN BINDINGS (LAMBDA (R) 
(* return the bindings *) 
(CAR (CDDDR (CDDDR R))) )) 


(DEFUN SETLPAR (LAMBDA (R V) 
(* set left parent *) 
(RPLACA R V) )) 


(DEFUN SETLLIT# (LAMBDA (R V) 
(* set left litteral number *) 


(RPLACA (CDR R) V) )) 


(DEFUN SETRPAR (LAMBDA (R V) 
(* set right parent *) 
(RPLACA (CDDR R) V) )) 


(DEFUN SETRLIT# (LAMBDA (R V) 
(* set right litteral number *) 
(RPLACA (CDDDR R) V) )) 


&(DEFUN SETNUMLITS (LAMBDA (R V) 
(* set number of litterals *) 
(RPLACA (CDR (CDDDR R)) V) )) 


(DEFUN SETMAXNDX (LAMBDA (R V) 
(* set maximum index *) 
(RPLACA (CDDR (CDDDR R)) V) )) 


(DEFUN SETBINDINGS (LAMBDA (R V) 
(* set bindings *) 
(RPLACA (CDDDR (CDDDR R)) V) )) 


(DEFUN INRECP (LAMBDA (R) 
(* is R an input record? *) 
(NULL (RPAR R)) )) 


(DEFUN LEQP (LAMBDA (X Y) 
(* is X less than or equal to Y ? *) 
(NOT (GREATERP X Y)) )) 


(DEFUN NMEMS (LAMBDA (L) 
(* return the number of members in the list L *) 
((NULL L) 0) 
(ADD1 (NMEMS (CDR L))) )) 


(DEFUN EXTRACT (LAMBDA (K L TMP) 
(* return the Kth member of L *) 
(* TMP is a local variable *) 
(LOOP 

((ZEROP K) TMP) 
(SETQ K (SUB1 K)) 
(SETQ TMP (POP L)) ) )) 


(DEFUN RESOLVE (LAMBDA (CL1 I CL2 J LLIT RLIT LNDX RNDX BNDEV 
LSIGN RSIGN) 

(* resolve clause CL1 litteral I with clause CL2 litteral J 
returning a new clause record representing the resolvent: 
UNIFY will extend the binding environment: returns NIL if 
impossible *) 

(GETLIT CLl1 I) 

(SETQ LLIT LITG) 

(SETQ LNDX INDEXG) 

(SETQ LSIGN SIGNG) 

(GETLIT CL2 J) 

(SETQ RLIT LITG) 

(SETQ RNDX (PLUS INDEXG (MAXNDX CL1)) ) 

(SETQ RSIGN SIGNG) 

(* create the new clause record *) 

(SETQ BNDEV (LIST CL1 I CL2 J (DIFFERENCE (PLUS (NLITS CL1) 
(NLITS CL2)) 2) (PLUS (MAXNDX CL1) (MAXNDX CL2)) NIL)) 

(* test for opposite signs *) 

((EQ LSIGN RSIGN) NIL) 

(* extend the environment by the unification algorithm *) 

((UNIFY LLIT LNDX RLIT RNDX) BNDEV) 

NIL )) 


(DEFUN GETLIT (LAMBDA (CL K) 


(continued on next page) 
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WIZaRO C 


Discover the powers of Wizard C 
for yourself! 


“written by someone who has been in the business a 
while. This especially shows in the documentation. 


Computer Language 
February, 1985 


“ Wizard's Zot the highest marks for support.” 


“The Wizard compiler had excellent diagnostics; it would 
be easier writin} portable code with it than with any 
other compiler we tested.’ 


Dr. Dobb's Journal 
Aupust, 1985 


Full Lint checking, six memory models, 8087 support, 
in-line assembly language, ROMable data support, full 
library source code. Cross-compilers are available on 


VAX/VMS and UNIX machines. 
(617) 641-2379 


WizlaD 


== 
SYSTEMS SOFTWARE, INC. ne] an 


Circle no. 116 on reader service card. 


Only $450. 


11 Willow Court 
Arlington, MA 02174 
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LISTING SEVEN (Listing continued, text begins on page 24.) 


(* get the Kth litteral in clause CL: return the litteral 
gotten in LITG: and the associated index in INDEXG *) 

(* if CL is an input clause then extract the Kth litteral and 
set the index to 1 *) 

((INRECP CL) < 

(SETQ LITG (EXTRACT K (LPAR CL))) 
(SETQ SIGNG (EQ K 1)) 
(SETQ INDEXG 1) ) 

(* if it is in the left parent of the clause then get the 
litteral from the left parent *) 

(* this is true if K is less than the litteral last resolved 
upon in the left parent of the current clause *) 

((LESSP K (LLIT# CL) ) 

(GETLIT (LPAR CL) K) ) 

(* this is also true if K is less than the number of litterals 
= the left parent but in this case we must adjust K by 1 
* 

((LESSP K (NUMLITS (LPAR CL))) 

(GETLIT (LPAR CL) (ADD1 K)) ) 

(* if the selected litteral is in the right parent but left of 
the litteral last resolved upon then get the litteral from 
the right parent with the appropriate adjustment to K *) 

((LESSP K (PLUS (SUB1 (NUMLITS (LPAR CL))) (RLIT# CL))) 

(GETLIT (RPAR CL) (ADD1 (DIFFERENCE K (NUMLITS (LPAR CL))))) 
(* in this case adjust the index got *) 
(SETQ INDEXG (PLUS INDEXG (MAXNDX (LPAR CL)))) ) 

(* otherwise the selected litteral is in the right parent to 
the right of last litteral resolved upon so adjust K 
accordingly and get the litteral *) 

(GETLIT (RPAR CL) (PLUS (DIFFERENCE K (NUMLITS (LPAR CL))) 2)) 

(* and adjust the index gotten *) 

(SETQ INDEXG (PLUS INDEXG (MAXNDX (LPAR CL)))) )) 


(DEFUN UNIFY (LAMBDA (TERM1 INDEX1 TERM2 INDEX2) 

(* attempt to unify TERM1 under INDEX1 with TERM2 under INDEX2 
and extend the binding environment represented in the 
global variable BNDEV: return T if successful or NIL if the 
unification is impossible *) 

(* if both terms and indices are equal then return T: no 
extension to BNDEV is needed *) 

( (EQUAL TERM1 TERM2) 

(EQ INDEX1 INDEX2) 
=) 

(* if TERM1 is a variable *) 

((VARIABLEP TERM1) 

(* then if it is bound in the current environment *) 
((ISBOUND TERM1 INDEX1 BNDEV) 
(* then substitute that binding and attempt to unify again 
* 


(UNIFY TERMB INDEXB TERM2 INDEX2) ) 

(* else if the variable of TERM1 occurs in TERM2 then we 
have a recursive """black" "hole""" situation so return 
NIL) '*) 

( (OCCUR TERM1 INDEX1 TERM2 INDEX2) NIL) 

(* else force a unification by adding the necessary binding 
and return T for success *) 

(BIND TERM1 INDEX1 TERM2 INDEX2 BNDEV) 

Tt) 

(* if TERM2 is a variable then swap the 2 terms and UNIFY the 
other way *) 

((VARIABLEP TERM2) 

(UNIFY TERM2 INDEX2 TERM1 INDEX1) ) 

(* otherwise if the heads of the terms unify then return the 
result of unifying the tails of the terms: the environment 
is extended as needed *) 

((UNIFY (CAR TERM1) INDEX1 (CAR TERM2) INDEX2) 

(UNIFY (CDR TERM1) INDEX1 (CDR TERM2) INDEX2) ) )) 


(DEFUN ISBOUND (LAMBDA (VAR INDEX BNDEV) 

(* determine if the variable VAR under the index INDEX is 
bound in the binding environment BNDEV: if it is then 
return T and set the free variables TERMB and INDEXB to 
the term and index respectively to which it is bound: *) 


(* otherwise return NIL and do not alter the values of TERMB and 


INDEXB *) 

(* if BNDEV is an input record then it cannot be bound so 
return NIL *) 

((INRECP BNDEV) NIL) 

(* if VAR under INDEX is equal to the head of the binding 
environment at this level then return T and set TERMB and 
INDEXB accordingly *) 

((EQUAL (CONS VAR INDEX) (CAR (BINDINGS BNDEV) ) ) 

(SETQ TERMB (CADAR (BINDINGS BNDEV))) 
(SETQ INDEXB (CAR (CDDAR (BINDINGS BNDEV)))) 
~ 

(* else see if it is bound in the tail of the binding 
environment at this level *) 

((ISBOUND VAR INDEX (CDR (BINDINGS BNDEV))) T) 

(* if not then check INDEX to see whether to search the left 
or right parent binding environment *) 

((LEQP INDEX (MAXNDX (LPAR BNDEV)) ) 

(* search left parent *) 
(ISBOUND VAR INDEX (LPAR BNDEV)) ) 

(* search right parent *) 

((ISBOUND VAR (DIFFERENCE INDEX (MAXNDX (LPAR BNDEV))) (RPAR 
BNDEV) ) 

(* adjust INDEXB accordingly *) 

(SETQ INDEXB (PLUS INDEXB (MAXNDX (LPAR BNDEV)))) 
(* and return success *) 

T.4 


(* all possible approaches failed so return NIL for not bound *) 


NIL )) 


(DEFUN OCCUR (LAMBDA (V I TERM J) 
(* see if the variable V under the index I occurs in the term 


TERM under the index J and return T or NIL *) 
(* if TERM is a variable *) 
((VARIABLEP TERM) 
(* then if it is bound *) 
((ISBOUND TERM J BNDEV) 
(* then make the substitution and test for occurance *) 
(OCCUR V I TERMB INDEXB) ) 
(* if V equals TERM *) 
( (EQ V TERM) 
(* then return T if I=J else NIL *) 
(EQ I J) ) ) 
(* if TERM is atomic and not a variable *) 
(* then it is a constant so return NIL *) 
( (ATOM TERM) NIL) 
(* otherwise if V under I occurs in the head of TERM under J 
then return T *) 
( (OCCUR V I (CAR TERM) J) T) 
(* otherwise return T if V under I occurs in the tail of TERM 
under J and NIL otherwise *) 
(OCCUR V I (CDR TERM) J) )) 


(DEFUN BIND (LAMBDA (V I TERM J BNDEV) 
(* bind V under I to TERM under J in BNDEV *) 
(SETBINDINGS BNDEV (CONS (CONS (CONS V I) (CONS TERM J)) 
(BINDINGS BNDEV))) )) 


(DEFUN * (LAMBDA COMMENTS 
NIL )) 


(DEFUN MAKECL (LAMBDA (CL) 


(* make a clause record out of the expression CL *) 
(LIST CL 0 NIL 0 (NMEMS CL) 1 NIL) )) 


End Listing Seven 


LISTING EIGHT 


(SETQ CLAUSE-1 '((F x y) (G x) (P Ay x) )) 
((F x y) (G x) (P Ay x)) 


(SETQ CLAUSE-2 '((P AB C))) 
((P AB C)) 


(SETQ CLAUSE-3 '((G C))) 
((G C)) 


(SETQ TEST (RESOLVE (MAKECL CLAUSE~-1) 2 (MAKECL CLAUSE-3) 1)) 
( 
( ((F x y) (G x) (P Ay x)) O NIL 0 3 1 NIL ) 
2 
( ((G C)) O NIL 0 1 1 NIL ) 
zd 
2 
2 
( 


Clee 3 39ers, 2) 


End Listings 
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PRIME FEATURES 


e Execute DOS level commands 
in HS/FORTH, or execute DOS 
and BIOS functions directly. 

e Execute other programs under 
HS/FORTH supervision. 
(editors debuggers file managers etc) 

e Use our editor or your own. 

e Save environment any time 
as .COM or.EXE file. 

e Eliminate headers, reclaim 
space without recompiling. 

e Trace and decompile. 

Deferred definition, 

execution vectors, case, 

interrupt handlers. 


FORTH 


e Full 8087 high level support. 
Full range transcendentals 
(tan sin cos arctan logs exponentials) 
® Data type conversion and 
|/O parse/format to 18 
digits plus exponent. 
Complete Assembler 
for 8088, 80186, and 8087. 
String functions - 
(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 
Graphics & Music 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management 
Full megabyte - programs or data 
Fully Optimized & Tested for: 
IBM-PC XT AT and JR 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 



















Introducing The 


Perfect Linker For Large, 
Complex Programs. 


Writing MS-DOS®/PC DOS programs with dozens of modules? Then, 
you need the new Plink™86 Plus high-performance linkage editor. 

You can create up to 4,095 overlays, in one or many files, on one or 
many disks. And in any MS-DOS/PC DOS environment Plink 86 Plus 
will automatically cache overlays using all or part of available memory 
including IBM AT extended memory. Allowing you to get better per- 
formance from your large machines. 

Perform an “object merge” to combine multiple object files into one. 
That makes it easier to link object code with application software. 
Harder for pirates to figure out how your software works. And, speeds 
up the linking process. 

Reload overlays upon function return to avoid calls from one overlay 
“smashing” calls from another overlay. Allocate library modules to 
overlay structures automatically. So that modules are parceled out to 
where they are needed in the overlay structure, reducing the run-time 
size of the program. 




























Tie atin With Plink 86 Plus you can work on modules individually. Link 
Compare . them into executable files. Or, use the same module in different 
BYTE Sieve Benchmark jan 83 





programs. You can change the overlay structure of an existing program 
without recompiling. Or, use one overlay to access code and data in 
other overlays. 





HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 


FULL MEGABYTE FORTHS! 
(TEN TIMES FASTER WHEN USING AUTO-OPT!) 


HS/FORTH, complete system only: $270. 
“=. Visa Mastercard G® 


HARVARD 
SOFTWORKS 


P.O. BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 







=r $495 complete. 

pa SL Now for a limited time, send us your old 
Plink 86 and $150.00 and we’ll send you the new 
Plink 86 Plus. 

Send for your Plink 86 Plus information kit 
today. Call or write: Phoenix Computer Products 
Corporation, 320 Norwood Park South, 
Norwood, MA 02062 (800) 344-7200. 

In Massachusetts (617) 762-5030. 


Programmers’ Pfantasies 
by 














Plink 86 Plus is a trademark of Phoenix Software Associates, Ltd. 
MS-DOS is a registered trademark of Microsoft Corporation. 
AT is a trademark of International Business Machine Corporation. 
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BKADY Knows 
Programming. 








You'll learn to whip every element of your programming into shape with the 
latest information and guidance by America’s foremost technical experts. 
Just call toll-free or use the coupon below to order today. 
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1. Take your programs to the next step... 


Programming Tools 
for the IBM PC 





2. Includes a listing for the remarkable 


Creating Utilities 
Puce me rt 
| 10 Best for the IBM PC & XT 


Hier tcrrge sg PE psec 


Jerome 8. Corsi and Wiliam £ Hills 








3. Learn the techniques used for creating 4. Includes code listings for three working 


data input/output and manipulation. Learn QUICKCODE code generator which auto- assembly language utilities. Includes 10 of debuggers including single-stepping, cross 
about data storage and access and create matically writes input, locate, and print the most popular utilities such as DBUG referencing, and mapping utilities. $19.95 


your own database and file managers. 


statements. Also unleashes high memory SCAN, CLOCK, UNDELETE, ONE KEY, 


(Disk available) 


Assumes some knowledge of BASIC. $17.95 access and makes screen designacinch. PCALC calculator and notepad and five 


$19.95 


others. $21.95 (Disk available) 


LIBRARY 


THE 
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5. A definitive reference text for advanced 6. Probes the inner workings of the 8086 7. Here’s a compendium of many of the 8. A breakthrough explanation to the tech- 
programmers. You'll find over 150 discus- (used by the AT&T 6300) and 8088 (IBMPC) most useful, but often neglected, advanced nical operations of DOS for programmers. 
sions of common hardware-control tasks (in chips...and describes specific techniques programming concepts. A tutorial in format Shows how to use the I/O services with dis- 
BASIC, Pascal, or C) as well as assembler for using the full capability of these chip that uses BASIC for examples, it covers cussions of: character and non-character 
oon drivers, and real-time operators. ee while programming inassembier. techniques such as: linked data structures; functions; directory and file management 


Now at your book or computer store. 
Or order toll-free today: 


recursion; Cee: and dynamic storage routines; and memory management. 
allocation. Includes listings for 25 sub- Includes BIOS functions and info on IBM 
routines. $21.95 (Disk available) “compatibles.” $16.95 


800-624-0023 sceisosr 


BRADY COMMUNICATIONS COMPANY, INC. 
c/o Prentice Hall, 
P.O. Box 512, W. Nyack, NY 10994 


| Circle the numbers of the titles you want below. 
| (Payment must be enclosed; or, use your charge 
card.) Add $1.50 for postage and handling. 
| Enclosed is check for $ or charge to 
[_] MasterCard [] VISA. 


i 1 (0-89303-528-9) 





2 (0-89303-784-2) 
5 (0-89303-787-7) 6 (0-89303-424-X) 
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(New Jersey residents, please add applicable sales tax.) 


Dept. 3 GR - PTEC - AT(O) | 


3 (0-89303-584-X) 4 (0-89303-587-4) 
7 (0-89303-48 1-9) 8 (0-8359-5655-5) 
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infoPro Systems 
RIM elec 


A 
d e , * | 
S Cy F : a 
If you're a C programmer (or want to be one), we 
speak your language. Subscribe to The C Journal 
today, and start increasing your productivity right 
away. We give you information you can use on any 


machine — IBM PC™, UNIX™-based, Macintosh”, or 
CP/M™ — micro, mini, or mainframe. 


@ in-depth reviews and feature articles — C com- 
pilers, editors, interpreters, function libraries, 
and books. 


@e hints and tips — help you work better and 
faster. 


e interviews — with software entrepreneurs that 
made it — by using C. 


@ news and rumors — from the ANSI standards 
committee and the industry. 


Limited Time Offer 


Join our thousands of subscribers at the Discount 
Rate of only $18 for a full year (regularly $28)! Call 


us now at (201) 989-0570 for faster service — don't . 


miss a single issue of The C Journal! 
Please add $9 for overseas airmail. 


Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 
Corp. Macintosh: Apple ComputerCorp. TheC Journal: 


InfoPro Systems. UNIX: AT&T Bell Labs. 
cS 


Denville, NJ 07834 
(201) 989-0570 
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Another in a series of productivity 
notes on MS-DOS™ software from 
UniPress. 


Features: 


BYSO”™ LISP 


A production LISP compiler designed for 
optimum performance on the IBM PC. 


e Includes interpreter — debug programs instantly. 

e Compatible with Common LISP and some earlier dialects. 

e Access to all system functions of IBM PC. 

e Complete — has full screen editor, only PCDOS required. 

e Tested and reliable — in use since Aug. ’84, all known 
bugs fixed. 

e Very fast — does Jul. ‘84 BYTE Sieve test in .8 seconds. 
Other LISPs take 30 to 80 seconds. Garbage collects in 
under a quarter second. 

¢ Visual Syntax™ — an editor written in BYSO LISP 
that displays programs graphically. 

e Fully documented — all features explained, application 
notes given, full source code of Visual Syntax. 

e Not copy protected, preinstalled. 

e Generates stand alone code that is royalty free in most 
Cases. 

e Priced as a good C compiler, not as a miracle expert 
system. 


Interpreter only, single user license $150. 
Compiler and interpreter, single user license $395. 
Requires 256K, IBM PC or true compatible. 


LEVIEN INSTRUMENT CO. 
Sittlington Hill/P.O. Box 31 
McDowell, VA 24458 

(703) 396-3345 


BYSO is a trademark of Raphael L. Levien. IBM PC is a registered 
trademark of the IBM Corporation. 
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Subject: Low-cost; powerful multi- 
user Data Management System. with 
keyed B+ tree /sam-file manager, 


“report writer and query facility. Runs 
on the IBM-PC™ 


__.PHACT was designed’specifically for 
the programmer. PHACT provides a 

' oné-produet solution for accessing 
and manipulating records, generating 
reports, and selecting data through a 
powerful query facility. 


PHACT is a trademark of PHACT Associates; |BM-PC, International Business 
Machines Corp.; Lattice is a trademark of Lattice, Inc.; MS-DOS is 2 trademark 


@. Supports fixed and variable length | 


records.(1-9999.bytes). 7 
@ Up to.9 alternate indices can be 
utilized. 
@ Record Jocking for multiple 
simultaneous updates: Handles.” 
Networks! ff 
@ full-or partial key record.access. . 
@ Automatic key compression to.” 
save.disk Space and improve 
performance. : 
@ Databases are password protected 
and. maybe opened for shared or ex- 
Clusive use. 

@ Can be Jinked with these.€ 
libraries: Lattice Microsoft, C86, 

and Aztec™ 


use command language for format-_, 
ting reports from_existing PHACT 
databases. 


@ -PHACT-query uses a’ SEQUEL-like 


relational query language for selecting 
~ data, 


@ PHACT.Forms Generator coming 


_ Soon! 

_’ Il Excellent product to integrate into 
your own. packages. Call for terms 
 on-distribution rights for source 

“purchases. 


/ _ Price: 


PHA CT Data Management 
| System ~ 


Binary Source 


“ Single-user system $°655° $2085 
/ ‘Mutti- user system 


@ PHACT-report provides an easy to” “4 a 


1220 


“ Available for UNIX" and VMIS™ too! 
: Mastercard/ Visa accepted 


4985" 
“~~ “Telex: 911859 





For our Free Catalog and more infor: 


mation.on these-and-other MS-DOS.” 


__ SOftware.products; call or write: 
“ UniPress Software Jnc.. 


2025 Lincoln Highway 
Edison, Nd 08817 
Telephone:.201-985-8000 


Order Desk: 800-222-0550 (Outside me / 


Telex:’709418 
“European Distributor 
Modulator SA’ 


Switzerland, Telephone:’41 31 ee 22 99. 


Japanese Distributor 
DT. Inc. . 
Minato-Ku, ,Jokyo 


__Jelephone: 03'586-6580 


of Microsoft; Mark Williams is a trademark of Mark Williams; Aztec is a 
trademark of Aztec 


ress Software 


Your Leading Source for UNIX Software 
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CP/TREE 


Tree-Structured Named Directories for CP/M 2.2 


e Transforms user areas into Unix-like directories 
¢ Provides Unix-like directory commands: 
CD, MKDIR, PWD, RMDIR, TREE 


¢ Includes a CCP replacement featuring: 
e Command and file search path. Use programs like 
‘WordStar from any directory! 
e Erase with query 
¢ Wildcard rename with query 
¢ Provides output redirection to disk file 
© Uses as little as Yk RAM, never more than 2%4k 
¢ A must for hard disks 


e Installs easily: requires no modifications to BDOS or BIOS 


° Requires standard CP/M 2.2 (not 3.0 or Apple), Z80, 
48k RAM 


$29.95 plus $4.00 s&h 


To order: Specify disk format (8” SSSD, NorthStar DD. Call for 
info on others.). MC, Visa, COD (add $1.90), check (delays 
shipping 2 weeks). MA residents add 5% sales tax. POs not accepted. 


Precise Electronics 
P.O. Box 339 

New Town Branch 
Boston, MA 02258 
tel: (617) 332-3977 


Apple® Apple Computer. CP/M® Digital Research. WordStar™ 
MicroPro International. Z80® Zilog. Unix™ AT&T Technologies. 





¢¢Revelation is a visionary product. 
It brings out the creativity 


in programmers.99 


Steve Perry _ 
Mainframe Micros, Inc. 
Professional Programmers 


With Revelation, Steve Perry put a mainframe 
personnel management system on a micro. Now it’s 
an integral part of the Human Resource Manage- 
ment System sold by Control Data Business Centers. 

Revelation’s capabilities go beyond ordinary 
DBMSSs. Its sophisticated dictionary, mainframe 
communications and advanced report writer give 
more oe to programmers. 

rite your next application the right way. Send 
today for free technical specifications. Or $24.95 gets 


you a complete Revelation Demo/Tutorial. 


Cosmos, Inc., 19530 Pacific Highway South, Suite 102 
Seattle, WA 98188, (206) 824-9942, Telex: 9103808627 
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EXPERT-2 


LISTING ONE (Text begins on page 42.) 


\ LIFE in Expert-2 


\ 
\ 


simple demo program - this version on MVP Forth 
by Jack Park 1985 


: WALL ; \ something to forget when done 


NOSHOW \ a word added to EXPERT-2 to cause suppression of display 


\ 
\ 


of any inferences. Sets a variable to 00. Variable is tested 
by each printing word. 


VARIABLE ARRAY1 510 ALLOT 
VARIABLE ARRAY2 510 ALLOT 
\ during a given pass through the cells, one array will be the 


\ 
\ 


“old" array, the other the "new" array. 


On the next pass, 
arrays reverse position. 


: CLEAR1 ARRAY1 512 ERASE ; 
: CLEAR2 ARRAY2 512 ERASE ; 


VARIABLE “OLD 
VARIABLE “NEW 
VARIABLE “CELL 
VARIABLE ?CELL 
VARIABLE CELLTOGGLE 


VARIABLE II 


\ miscellaneous variable use in counting 


VARIABLE JJ 
VARIABLE KK 


219 CONSTANT SYMBOL \ graphics symbol for IBM PC display 
\ this symbol can be changed to virtually any ASCII symbol 


\ 


e.g. ASCII * CONSTANT SYMBOL will print a "*" at each live cell 


: IJ ( J I -- ) 32 * SWAP 2* + *OLD @ + @ ( is alive? ) 


= ee fe 


IF 1 “CELL @ +! THEN ; \ printing symbol is truth value here 
if a printing symbol is in a cell, it is alive. 

if a cell is alive, increment count in center cell. Note, this 
routine counts total of alive "nearest neighbors" to center 


cell. 


sR IX (en ==, n-)= DUP=1. = 


: DOCELLS 16 0 


OO EO a 


IK DROP: 135 

ELSE DUP 16 = IF DROP 0 THEN 

THEN ; \ bounds checking for array edges 
this form of bounds checking forces a square (flat) array to 
behave like a torus - there will be end effects when a 

life form grows beyond the visible edge of the array. 

SETCELL (JI -- ) 32 * SWAP 2* + “NEW @ + 0 OVER ! 
( clear cell ) “CELL ! ( Save cell address ) ; 
support for numeric processing of cell counts 


( -- ) \ here is the main numeric loop 
DO 16 0 ( note: 16 x 16 array of cells ) 
DO J I SETCELL 
J 1- FIX I IJ 
J it FIX I Id 
J IT ¢l=— PIX Id 
J ee BEX TS 
J 1l- FIX I 1- FIX IJ 
J il- FIX I 1+ FIX IJ 
J 1+ FIX I 1- FIX IJ 
J 1+ FIX I 1+ FIX Id 
LOOP 
LOOP ; \ count all alive cells around each cell 
count is saved in "NEW" cell 
this routine could be sped up, but it runs in about 2 seconds 
as is. 


(INITCELL) ( y xX -- ) 32 * SWAP 2 * + ARRAY1 + SYMBOL SWAP ! 


. 
, 


: EATER ( a starting design ) CLEARI1 


5 4 (INITCELL) 6 4 (INITCELL) 1 5 (INITCELL) 2 5 (INITCELL) 
4 5 (INITCELL) 7 5 (INITCELL) 1 6 (INITCELL) 2 6 (INITCELL) 
5 6 (INITCELL) 6 6 (INITCELL) ; 


: PENTA ( a starting design ) CLEAR1 


SM Sa 


4 6 (INITCELL) 9 6 (INITCELL) 2 7 (INITCELL) 3 7 (INITCELL) 
9 5 DO I 7 (INITCELL) LOOP 10 7 (INITCELL) 11,7 (INITCELL) 
4 8 {INITCELL) 9 8 (INITCELL) ; 

to run the system, one types PENTA RUN, or EATER RUN 
consult BYTE Magazine, December 1978 for further details 
cells will not necessarily behave as advertised because of 
edge effects in a limited array 


: SHOWCELLS HOME ( alias: PAGE, clearscreen) 16 0 


DO 16 0 
DO J 32 * I 2* + “NEW @ + @ EMIT LOOP CR 
LOOP CR KK @.; \ display the array 


: RUN ( the main word ) CLEAR2 1 CELLTOGGLE ! 
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be sure to call one of the starting patterns before RUN 
ARRAY] *NEW ! 0 2?CELL ! 32 0 ( run up to 32 generations ) 
DO 16 0 I 1+ KK ! SHOWCELLS 
DO I JJ. 1} TG 0 
DO I II ! DIAGNOSE ( run the rules ) LOOP 
LOOP 0 ?CELL ! ?TERMINAL IF LEAVE THEN ( tap any key to stop ) 
LOOP 1 KK +! SHOWCELLS ; 


II, JJ, and KK carry loop counters outside the loops. Tt 338 
not possible to simply pass these values on the stack, because 
they are used well into the DIAGNOSE - inference engine - 
routine. 


: RUNCELLS ( used by rules ) ?CELL @ NOT ( have we run yet? ) 


ao 


IF CELLTOGGLE @ 

IF ARRAY1 “OLD ! ARRAY2 “NEW ! 0 

ELSE ARRAY2 “OLD ! ARRAY1 “NEW ! 1 

THEN CELLTOGGLE ! DOCELLS ( get all the counts ) 
THEN 1 2?CELL ! ; 


(ADDR) JJ @ 32 * II @ 2* +; \ numeric support 


following are antecedent numeric tests used by the rules 
COUNT=0 (ADDR) “NEW @ + @ O= ; \ return truth to rules 


: COUNT=1 (ADDR) “NEW @ + @ 


iL w+ 
: COUNT=2 (ADDR) “NEW @ + @ 2 = ; 
: COUNT=3 (ADDR) “NEW @ + @ 3 = 


. 
, 


: COUNT>=4 (ADDR) “NEW @ + @ 4 < NOT ; 


“AZ a A FO PO FM 


\ 
\ 
\ 
\ 
\ 
\ 
R 


I 


?2?ALIVE ( -- tf ) RUNCELLS (ADDR) “OLD @ + @ ; 

note use of the print character as a truth flag in ?ALIVE. 

each antecedent test returns a truth value based on a test: 
e.g. COUNT=0 looks at the “current" new cell to see what the 


count of its nearest neighbors has been found to be. Returns 
TRUE if count = 0, otherwise returns FALSE. This value is 
the truth value for the clause that called COUNT=0 in the 
rules (ANDRUN COUNT=0, etc.) 


following are consequent numeric procedures called by the 
rules 

LIVE SYMBOL (ADDR) “NEW @ + ! TRUE ( dummy truth value ) 
DIE 0 (ADDR) “NEW @ + ! TRUE ; 

note the use of SYMBOL as a truth value; SYMBOL must be > 0 


: PROPAGATE (ADDR) “OLD @ + @ (ADDR) “NEW @ + ! TRUE ; 


notice that all procedures must return a truth value to 
the inference engine - even in the consequent fields. 

e.g. LIVE stores the SYMBOL (which means the cell is now 
alive) into the current cell, then returns a dummy TRUE. 


following is the knowledge base 
ULES \ beginning of rules, start the rule compiler 
IFRUN ?ALIVE 

ANDRUN COUNT=2 

THEN cell lives 

ANDTHENRUN LIVE 
FRUN ?ALIVE 


ANDRUN COUNT#=3 
THEN cell lives 
ANDTHENRUN LIVE 


IFNOTRUN. 2?ALIVE 
ANDRUN COUNT=3 
THEN cell lives 
ANDTHENRUN LIVE 


IFRUN COUNT=0 
THEN cell dies 
ANDTHENRUN DIE 


IFRUN COUNT>=4 
THEN cell dies 
ANDTHENRUN DIE 


IFNOT cell lives 

ANDNOT cell dies 

THENHYP cell propagates 

ANDTHENRUN PROPAGATE 

DONE \ tidy up and stop the rule compiler. 


% 


\ 


note that EXPERT-2 inference engine must be modified with 


addition of a variable to suppress printing out inferences. 


End Listing 
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the dBx translator 


Bx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 


Improve program speed and reliability. 
Support multi-user/network applications. 
With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
dBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 


(Uses ANSISYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


Desktop A.I. 
1720 Post Rd. E. #3 
Westport, CT 06880 


(203) 255-3400 


Circle no. 258 on reader service card. 


¢€ Revelation is 50% harder 
to learn than dBase III" 


and 5 times more powerful)? 


John Dunbar 
Dunbar and Company 
Application Designers 


That's a small price to pay for power. Especially 
when it helps a programmer like John Dunbar create 
LAN databases for the Houston Rockets, Compaq 
Computer Corporation and Houston Natural Gas. 
evelation has all the tools Dunbar needs 
including a program generator to slash development 
time and a robust language that puts C to shame. 

Prove it to yourself. The Revelation Demo/ 
Tutorial is only $24.95. Technical specifications are 
free. Send today for more information. 


-_— 
— + 


OSMOS 


Cosmos, Inc., 19530 Pacific Highway South, Suite 102 
Seattle, WA 98188, (206) 824-9942, Telex: 9103808627 


dBase III is a trademark of Ashton-Tate. 
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68K ASSEMBLER 
LISTING ONE (rext begins on page 52.) 


DEFINITION MODULE LongNumbers; PROCEDURE LineParts (f : FILE; VAR EndFile : BOOLEAN; 
(* Routines to handle HEX digits for the xX68000 cross assembler. *) VAR Label, OpCode : TOKEN; 
(* All but LongPut and LongWrite are limited to 8 digit numbers. *) VAR SrcOp, DestOp : OPERAND) ; 
FROM Files IMPORT (* Reads Line, breaks into tokens, on-passes to symbol & code generators *) 
FILE; 
END Parser, 


EXPORT QUALIFIED 3 
LONG, LongClear, LongAdd, LongSub, LongInc, LongDec, 3 
LongCompare, CardToLong, LongToCard, LongToInt, End Listing Three 
LongPut, LongWrite, StringToLong, AddrBoundL, AddrBoundw; 


CONST 
ears 3 LISTING FOUR 
BASE = 16; 
TYPE 
LONG = ARRAY [1..DIGITS] OF INTEGER; DEFINITION MODULE SymbolTable; 
(* Initializes symbol table. Maintains list of all labels, *) 
PROCEDURE LongClear (VAR A : LONG); (* along with their values. Provides access to the list. ‘*) 


(* Sets LONG to Zero *) 

FROM LongNumbers IMPORT 
PROCEDURE LongAdd (A, B : LONG; VAR Result : LONG); LONG; 
(* Add two LONGs, giving Result *) 


PROCEDURE LongSub (A, B : LONG; VAR Result : LONG); Pre aae et 
(* Subtract two LONGs (A - B), giving Result *) 7 


PROCEDURE CardToLong (n : CARDINAL; VAR A : LONG); 

{* Converts CARDINAL to LONG *) EXPORT QUALIFIED 

FillSymTab, SortSymTab, ReadSymTab, ListSymTab; 
PROCEDURE LongToCard (A : LONG; VAR n : CARDINAL) : BOOLEAN; : : ane t ny 
(* Converts LONG TO CARDINAL, returns FALSE if conversion impossible *) 


PROCEDURE LongToInt (A : LONG; VAR n : INTEGER) : BOOLEAN; PROCEDURE FillSymTab (Label : TOKEN; Value : 7 VAR Full : BOOLEAN); 

(* Converts LONG to INTEGER, returns FALSE if conversion impossible *) (* Add a symbol to the table *) 

PROCEDURE LongInc (VAR A : LONG; n : CARDINAL); PROCEDURE SortSymTab (VAR NumSyms : CARDINAL) ; 

(* TacKenen’ Laks by“n *) (* Sort symbols into alphabetical order *) 

PROCEDURE LongDec (VAR A : LONG; n : CARDINAL); 3 

R 2 PROCEDURE ReadSymTab (Label : ARRAY OF CHAR; 

oes a VAR Value : LONG; VAR Duplicate : BOOLEAN) : BOOLEAN; 
PROCEDURE LongCompare (A, B : LONG) : INWEGER; (* Passes Value of Label to calling program -- returns FALSE if the *) 

(* Returns: 0 if A= B, -1 if A<B, +1 if A>B *) (* Label is not defined. Also checks for Multiply Defined Symbols *) 
PROCEDURE LongPut (f : FILE; A : ARRAY OF INTEGER; Size : CARDINAL); PROCEDURE List SymTab (i : CARDINAL; VAR Label : TOKEN; VAR Value : LONG) ; 
eo pee ane 2B ee ee (* Returns the i-th item in the symbol table *) 

PROCEDURE LongWrite (A : ARRAY OF INTEGER; Size : CARDINAL); 

(* Write LONG number to console screen *) END SymbolTable. 

PROCEDURE StringToLong (S$ : ARRAY OF CHAR: VAR A : LONG) : BOOLEAN; End Listing Four 


(* Converts a string (in HEX) into a LONG *) 


PROCEDURE AddrBoundL (VAR A : LONG); 


(* Forces Address tc a 68000 long word boundary *) LISTING FIVE 


PROCEDURE AddrBoundW (VAR A : LONG); 


(* Forces Address to a 68000 word boundary *) DEFINITION MODULE CodeGenerator; 


END LongNumbers. (* Uses information supplied by Parser, OperationCodes, *) 
. { (* and SyntaxAnalyzer to produce the object code. i 
End Listing One 


FROM Parser IMPORT 
TOKEN, OPERAND; 


LISTING TWO FROM LongNumbers IMPORT 


LONG; 


DEFINITION MODULE CndLin2; 
(* Parses command line - returns pointer to an array of pointer to strings *) EXPORT QUALIFIED 


Lzero, AddrCnt, Pass2, BuildSymTable, AdvAddrCnt, GetObjectCode; 
FROM SYSTEM IMPORT 


ADDRESS; 
VAR 

EXPORT QUALIFIED LZero, AddrCnt : LONG; 

ReadCmdLin; Pass2 : BOOLEAN; 
PROCEDURE ReadCmdLin (VAR ArgC : CARDINAL; VAR ArgV : ADDRESS); 
(* Gives count of items in command line, and an array of pointer to them *) PROCEDURE BuildSymTable (VAR AddrCnt : LONG; 

END QndLin2. Label, OpCode : TOKEN; 
End Listing Two End Listing Five 


LISTING SIX 


DEFINITION MODULE SyntaxAnalyzer; 
(* Analyzes the operands to provide information for CodeGenerator *) 


LISTING THREE 


DEFINITION MODULE Parser; 


(* Reads the Source file, and splits each *) FROM LongNumbers IMPORT 
(* line into Label, OpCode & Operand(s). *) LONG; 
FROM Strings IMPORT FROM OperationCodes IMPORT 
STRING; ModeTypeA, ModeTypeB, ModeA, ModeB; 
FROM Files IMPORT FROM Parser IMPORT 
FILE; TOKEN, OPERAND, OpLoc, Srcloc, DestLoc; 
EXPORT QUALIFIED EXPORT QUALIFIED 
TOKEN, OPERAND, Line, LineCount, Oploc, Srcloc, DestLoc, LineParts; OpMode, Xtype, SizeType, OpConfig, (* TYPEs *} 
Size, InstSize, (* VARS «J 
AddrModeA, AddrModeB, Op, Src, Dest, (* VARS *) 
CONST GetValue, GetSize, (* PROCEDURE 's =} 
TokenSize = 8; GetInstModeSize, GetOperand, GetMultReg; (* PROCEDURE'S ‘*) 
OperandSize = 20; 
TYPE TYPE 
TOKEN = ARRAY [0..TokenSize] OF CHAR; OpMode = (DReg, (* Data Register *) 
OPERAND = ARRAY [0..OperandSize] OF CHAR; ARDir, (* Address Register Direct *) 
ARInd, (* Address Register Indirect *) 
VAR ARPost, (* Address Register with Post-Increment *) 
OpLoc, SrcLoc, DestLoc : CARDINAL; ARPre, (* Address Register with Pre-Decrement *) 


Line : STRING; 
LineCount : CARDINAL; 


(continued on page 78) 
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68K ASSEMBLER 


LISTING SIX (Listing continued, text begins on page 52.) 


ARDisp, (* Address Register with Displacement *) PROCEDURE StartListing (f : FILE); 
ARDisx, (* Address Register with Disp. & Index *) (* Sign on messages for listing file -- initialize *) 
AbsW, (* Absolute Word (16-bit Address) *) 
AbsL, (* Absolute Word (32-bit Address) *) 
PCDisp, (* Program Counter Relative, with Displacement *) PROCEDURE WriteListLine (f : FILE; 
PCDisxX, (* Program Counter Relative, with Disp. & Index *) AddrCnt, ObjOp, ObjSrc, Ob4jDest : LONG; 
Imm, (* Immediate *) nA, no, ns: nD : CARDINAL) 7 
MultiM, (* Multiple Register Move *) (* Writes one line to the Listing file, Including Object Code *) 
SR, (* Status Register *) 
CCR, (* Condition Code Register *) 
USP, (* User's Stack Pointer *) PROCEDURE WriteSymTab (f : FILE; NumSym : CARDINAL); 
Null); (* Error Condition, or Operand missing *) (* Lists symbol table in alphabetical order *) 
Xtype = (X0, Dreg, Areg); END Listing. 
SizeType = (SO, Byte, Word, S3, Long); 
Opconfig = RECORD (* OPERAND CONFIGURATION *) End Listing Eight 
Mode : OpMode; 
Value : LONG; 
Loc : CARDINAL; (* Location of Operand on line *) 
Rn : CARDINAL; (* Register number *) LISTING NINE 
Xn : CARDINAL; (* Index Reg. nbr. *) 
Xsize : SizeType; (* size of Index *) 
X : Xtype; (* Is index Data or Address register? *)| pgrinITION MODULE Srecord: 
END; (* Creates Motorola S-records of program: *) 
(* SO = header record, *) 
(* S2 = code/data records (24 bit address), *) 
VAR (* S8 = termination record (24 bit address). *) 
Size : SizeType; (* size for OpCode *) 
AbsSize : SizeType; (* size of operand (Absolute only) *) eae oe 
InstSize : CARDINAL; 
AddrModeA : ModeA; (* Addressing modes for this instruction *) FROM LongNumbers IMPORT 
AddrModeB : ModeB; (* ditto *) LONG; 
Op : BITSET; (* Raw bit pattern for OpCode *) 
Src, Dest : OpConfig; EXPORT QUALIFIED 
StartSrec, WriteSrecLine, EndSrec; 
PROCEDURE GetValue (Operand : OPERAND; VAR Value : LONG); 
(* determines value of operand (in Decimal, HEX, or via Symbol Table) *) PROCEDURE StartSrec (f : FILE; SourceFN : ARRAY OF CHAR); 
(* Writes SO record (HEADER) and initializes *) 
PROCEDURE GetSize (VAR Symbol : ARRAY OF CHAR; VAR Size : SizeType); ST ee ee lca eek: eiidews aceone 
(* determines size of opcode: Byte, Word, or Long *) nA, no, ns, nD : CARDINAL); 
(* Collects Object Code -- Writes an S2 record to file if line is full *) 
PROCEDURE GetAbsSize (VAR Symbol : ARRAY OF CHAR; VAR AbsSize : SizeType); 
(* determines size of operand: Word or Long *) PROCEDURE EndSrec (f : FILE); 
(* Finishes off any left-over (Partial) S2 line, *) 
PROCEDURE GetInstModeSize (Mode : OpMode; Size : SizeType; (* and then writes S8 record (TRAILER) ea 
VAR InstSize : CARDINAL) : CARDINAL; tun Srecotd. 
(* Determines the size for the various instruction modes. *) 
PROCEDURE GetOperand (Oper : OPERAND; VAR Op : OpConfig); End Listing Nine 
(* Finds mode and value for source or destination operand *) 
PROCEDURE GetMultReg (Oper : OPERAND; PreDec : BOOLEAN; LISTING TEN 
Loc : CARDINAL; VAR MultExt : BITSET); 
(* Builds a BITSET marking each register used in a MOVEM instruction *) 
END SyntaxAnalyzer. ee ees i eae ite dana rs AA a i eas al *) 
e ° 2 (* *) 
End Listing Six (* McC68000 Cross Assembler *) 
(* Copyright (c) 1985 by Brian R. Anderson 7 
Ne *) 
(* This program may be copied for personal, non-commercial use *) 
LISTING SEVEN (* only, provided that the above copyright notice is included = 
(* on all copies of the source code. Copying for any other use *) 
(* without the consent of the author is prohibited. *) 
DEFINITION MODULE ErrorX68; (* *) 
(* Displays error messages for X68000 cross assembler *) (x 


FROM Files IMPORT 


FROM Terminal IMPORT 
FILE; 


WriteString, WriteLn, ReadString; 
EXPORT QUALIFIED 


FROM Files IMPORT 
ErrorType, ErrorCount, Error, WriteErrorCount; 


FILE, FileState, Open, Create, Write, Close; 
TYPE 


ErrorType = (Dummy, TooLong, NoCode, SymDup, Undef, SymFull, Phase, 
ModeErr, OperErr, BraErr, AddrErr, SizeErr, EndErr); 


IMPORT ASCII; 
VAR 
ErrorCount : CARDINAL; 


FROM Strings IMPORT 
STRING, CompareStr, Assign, Concat, Length, Delete; 


FROM CmdLin2 IMPORT (* Access CP/M command line *) 


ReadCmdLin; 

PROCEDURE Error (Pos : CARDINAL; ErrorNbr : ErrorType); 
(* Displays Error #ErrorNbr, then waits for any key to continue *) FROM LongNumbers IMPORT 

LONG; 
PROCEDURE WriteErrorCount (f : FILE); 
(* Error count output to Console & Listing file *) FROM SymbolTable IMPORT 

Sort SymTab; 

END ErrorX68. 
. FROM Parser IMPORT 
End Listing Seven TOKEN, OPERAND, LineCount, LineParts; 


FROM CodeGenerator IMPORT 


LISTING EIGHT LZero, AddrCnt, Pass2, BuildSymTable, AdvAddrCnt, GetObjectCode; 


FROM Listing IMPORT 


StartListing, WriteListLine, WriteSymTab; 
DEFINITION MODULE Listing; 


(* Creates a program listing, including Addresses, Code & Source. *) FROM Srecord IMPORT 


StartSrec, WriteSrecLine, EndSrec; 
FROM Files IMPORT 


FILE; FROM ErrorxX68 IMPORT 


ErrorCount, WriteErrorCount; 
FROM LongNumbers IMPORT 
LONG; 


TYPE 


EXPORT QUALIFIED FileName = ARRAY [0..14] OF CHAR; 


StartListing, WriteListLine, WriteSymTab; 


(continued on page 80) 


78 


Dr. Dobb’s Journal, April 1986 








PC 


Now for PC Users: 
Professional Typesetting Capability 


PCTxX brings to the personal computer user the ability to put any 
kind of information on paper in a professional, elegant manner. 

It brings the full power and flexibility of TEX implementations on 
mainframes to owners of IBM PC’s, AT’s and workalike computers. 


PCT RX is widely used for formatting technical and mathematical 
material. It is also perfectly suited for producing professional-quality 
reports, manuals, even books. 


PCTRX offers a wide range of typefaces, and a wide choice of drivers 
which output the finished material on dot matrix printers (Epson, 


Toshiba), low-cost laser printers (Apple LaserWriter, Corona LP-300, 


HP Laser Jet) and graphics screen preview (Hercules, EGA). This 
ad was formatted by PCTRX and produced on a Corona LP-300. 


Join hundreds of satisfied PCTRX users. Write or call us today. 


PCTgX: only $279. Dot-matrix drivers: $100. Laser drivers: $300. Preview 
(Hercules GC): $250. MF Medley (44 fonts, including Computer Helvetica): 
$100. Corona Laser Printer and PCTEX: complete $3395. System requirements: 
DOS 2.0 or later, 512K RAM, 10M hard disk. M/C, Visa accepted. 


Personal 20 Sunnyside, Suite H 
Mill Valley, CA 94941 
Inc (415) 388-8853 Telex 275611 


Trademarks: PCTpX, Personal TeX, Inc.; TeX, American Mathematical Society; IBM PC 
and AT, IBM Corp; LaserWriter, Apple Computer, Inc.; Hercules Graphics Card, Her- 
cules Computer Technology. 





Circle no. 76 on reader service card. 


NETWORKS ane) ORE 
OLE e-crec ISAM DOES ube ate 


$395 COMPLETE 


Specify diskette format: 
e 5%" MS-DOS 

e 8” CP/M 

@ 3'A" Mac 

e8” RT-II 


For VISA, MC and COD orders 
call (314) 445-6833 

FairCom 

2606 Johnson Drive 

Columbia, MO 65203 


© 1985 FairCom 


Fe 
‘os 


The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.; 
CP/M and Access Manager—Digital Research Inc.; Unix—-AT&T; Apple—Apple Computer Co. 


Circle no. 93 on reader service card. 


Dr. Dobb’s Journal, April 1986 





Put More 

UNIX” in 

Your C. aK. 
m E 


Unitools $99 

MAKE, DIFF and GREP S$ Ws 
These versatile UNIX-style utilities put 
power at your fingertips. MAKE, a 
program administrative tool, is like 
having an assistant programmer at your 
side. DIFF compares files and shows 
you the differences between them. 
GREP can search one or many files 
looking for one pattern or a host of 





patterns. | * 
(Su 
“7° $99 fremont 


A Powerful “‘vi’’-type Editor: 

Similar to the Rekee ‘vi’ editor, 
‘**Z’s’’ commands are flexible, terse, 
and powerful; macro functions give you 
unlimited range. Features include 
“undo,” sophisticated search and re- 
place functions, automatic indentation, 
C-tags, and much, much more. 





PC-LINT $99 
Error Checking Utility eran. eee 
A LINT-like utility that RES 6 pro- 
grams and uncovers bugs, quirks and | 
inconsistencies. Detects subtle errors. 
Supports large and small memory mod- 
els, has clear error messages and 
executes quickly. Has lots of options 
and features that you wouldn’t expect 
at this low price. 


Ae \ ys 


sour 
SunScreen $99 Woes 


Low-priced Screen Utility ‘as 
This versatile graphics package easily 
creates and modifies formatted screens, 
validates fields, supports function keys, 
color and monochrome cards. With li- 
brary source SunScreen is $199. 


Compatible with all leading MS/ 
PC-DOS C compilers. 


SPECIAL es 
Unitools, * 

PC-LINT a Sun- 
Screen All for only 


To order or for information call: 


/CCWAR 


1 800 TEC WARE 


(In NJ call 201-530-6307) 


UNIX 1 ed T { Bell Laboratones. MANX AZTEC TM a oe Systems, Inc PC 
LINT ™. GIMPLE saenres SunScreen T™ SunTec. MS-DOS TM M 





Circle no. 222 on reader service Sank 
79 


Power Tools for 
system builders™ 


Call today for our free catalog of design aids, com- 
pilers, libraries, debuggers, and support tools for 
Apple and IBM micro computers. The Power Tools 
catalog includes product descriptions, warranty and 
license terms, and all the information you need to 
make an intelligent purchase decision. 


TSF offers technical support, competitive pricing, 
free UPS shipping on orders over $100, and a reason- 
able return policy. Visa, MasterCard, and American 
Express accepted without surcharge. TSF helps you 
get your job done. 


Call Toll Free 
24 hrs a day/7 days a week 


Sample Prices: 

Microsoft C $259 

MASM 4.0 $109 

Turbo Pascal $45 

Mark Williams C $375 

Lets C $59 

Wendin OS Toolbox $89 
Blaise Async Manager $137 


Ask For Operator 2053 


800-543-6277 
Calif: 800-368-7600 


° Dept C-1 © 649 Mission Street 
e San Francisco e CA 94105 
e (415) 957-0111 


The Software Family™ 





Circle no. 230 on reader service card. 


Published for Over 7 Years 
$2.95 usa 


Australia New Zealand NZ $ 650 
Singapore Hong Kong H $2350 
Malaysia Sweden 30 -SEK 


Motorola 


68020 
68010 
68000 
68008 
6809 





JOURNAL 


Serving The 68XXX 
User Worldwide 


The Bible of the 


Serious User 


Hardware-Software-Application Articles 
New Product Releases-Announcements 
Hints-Kinks-Fixes, etc. 


Subscription Rates 
U.S.A: 1 Yr. $24.50, 2 Yrs. $42.50, 3 Yrs. $64.50 
*Foreign Surface: Add $12.00 per Year to USA Price 
*Foreign Airmail: Add $48.00 per Year to USA Price 
*Canada & Mexico: Add $9.50 per Year to USA Price 


* U.S. Currency or Check or Draft Drawn on USA Bank !! 
= (615) 842-6809 
68° Micro Journal a Division of C.P.I. 


Telex 5106006630 
5900 Cassandra Smith Rd. Hixson Tn. 37343 





Circle no. 213 on reader service card. 


80 


68K ASSEMBLER 


LISTING TEN 


(Listing continued, text begins on page 52.) 


VAR 
ArgC : CARDINAL; 


ArgV ;: POINTER TO ARRAY [1..3] OF POINTER TO STRING; (* Command Line *) 


SourceFN, ListFN, SrecFN : FileName; 
Source, List, Srec : FILE; 

Label, OpCode :; TOKEN; 

SrcOp, DestOp : OPERAND; 

EndFile : BOOLEAN; 

NumSyms : CARDINAL; 

ObjOp, ObjSrc, Ob jDest : LONG; 

nA, nO, nS, nD : CARDINAL; 


PROCEDURE MakeNames (VAR S, L, R : FileName); 
(* builds names for Source, Listing & S-Record files *) 


T : FileName; 
4, 1 : CARDINAL; 


(* temporary work name *) 


BEGIN 
Big Sy R gens (* set Listing & S-rec names to null *) 
i $= 0; Las JOP 
WHILE (S{i] # OC) AND (S[{i] # ' ') DO 
IF S{i] = '.* THEN (* mark beginning of file extension *) 
bugger T 
END; 
S{i}) s= CAP (S[i));7 
ING: =€1)/7 
END; 
TEAS [ij se2*) "THEN 
Delete (S, i, Length (S) - i); 
END; 


Assign (S, T)? 


IF 1 = O THEN 

Concat. (T,. ".ASM", -S); 
ELSE 
Delete (T, 1, i- 1); 
END; 


Conca. (T,.. *aLSP">- 1b) 
Coneat (T° *.S"%,- ‘Be 
END MakeNames; 


PROCEDURE OpenFiles; 
BEGIN 

IF Open (Source, SourceFN) # FileOK THEN 
WriteLn; 
WriteString ("No Source File: "); 
WriteLn; 
HALT; 

END; 


WriteString (SourceFN) ; 


IF Create (List, ListFN) # FileOK THEN 
WriteLn; 
WriteString (“Cannot create disk files!"); 
HALT; 
END; 


(* DOS may trap this *) 


WriteLn; 


IF Create (Srec, SrecFN) # FileOK THEN 
WriteLn; 
WriteString ("Cannot create disk files!"); 
HALT; 
END; 
END OpenFiles; 


WriteLn; 


PROCEDURE StartPass2; 
BEGIN 
IF (Close (Source) # FileOK) OR 
(Open (Source, SourceFN) # FileOK) THEN 
WriteString ("Unable to ‘Reset' Source file for 2nd Pass."); 
WriteLn; 
HALT; 
END; 
Pass2 := TRUE; 
AddrCnt := LZero; 
ErrorCount := 0; 
LineCount := 0; 
EndFile := FALSE; 
END StartPass2; 


(* Pass2 IMPORTed from CodeGenerator *) 
(* Assume ORG = 0 to start *) 
(* ErrorCount IMPORTed from ErrorxX68 *) 
(* LineCount IMPORTed from Parser *) 


PROCEDURE CloseFiles; 


BEGIN 
(* 0 eearenaresapes arenes esesasanes eeu eraneneras aren apes ao anew asus es creranen aren erasereses ees ewes anes ese eee *) 
- *) 
(* Ctrl-Z written to files before closing =) 
(* due to bug in "Files" module. Remove these *) 
(* before submitting listing for publication. *) 
[* *) 


(* wee eras eres even oe ares ate arenas aees esewan asem ames aren an eras anes as anes eran eran an ewan anew asesas eseserases esas ——*) 
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B. 500 to 9,999 
C. 100to 499 

D. 10to 99 

E. less than 10 


Vil. On average, | advise others about 


computers: 

A. more than once per day. 
B. once per day. 

C. once per week. 

D. less than once per week. 


Vill. In my job function, I: 


A. design software and/or write code. 
B. design software. 

C. write code. 

D. don’t design software or write code. 





Product 
Information 





Free! 


Postage Paid! 


Product 
Information 





Write (List, ASCII.sub); Write (Srec, ASCII.sub); 

IF (Close (Source) # FileOK) 

OR (Close (List) # FileOK) 
OR (Close (Srec) # FileOK) THEN 
WriteString (“Error closing files..."); 
HALT; 


WriteLn; 
END; 
END CloseFiles; 


BEGIN (* X68000 -- main program *) 
ReadCmdLin (ArgC, ArgV); 


IF ArgC = 0 THEN 
WriteLn; 
WriteString ("Enter Source Filename: "); 
ReadString (SourceFN) ; 
WriteLn; 
ELSE 
Assign (ArgV“[1]}*, SourceFN); 
END; 


MakeNames (SourceFN, ListFN, SrecFN); 
OpenFiles; 


WriteLn; 
WriteString (" 
WriteString (" 
WriteLn; WriteLn; 
WriteString (" 
WriteLn; WriteLn; 


68000 Cross Assembler") ; WriteLn; 
“spyright (c) 1985 by Brian R. Anderson"); 


Assembling "); 
WriteLn; 


WriteString (SourceFN) ; 


(*--—— 


Begin Pass 1 


---*) 


WriteString ("PASS 1"); WriteLn; 
AddrCnt := LZero; (* Assume ORG = 0 to start *) 
EndFile := FALSE; 


REPEAT 
LineParts (Source, EndFile, Label, OpCode, SrcOp, DestOp); 


BuildSymTable (AddrCnt, Label, OpCode, SrcOp, DestOp); 
AdvAddrCnt (AddrCnt); 


UNTIL EndFile OR (CompareStr (OpCode, "END") = 0); 


(*--- 


Begin Pass 2 


anasos 8 
WriteString ("PASS 2"); WriteLn; 
Start Pass2; (* get Source file, Parser & ErrorxX68 ready for 2nd pass *) 
SortSymTab (NumSyms) ; 
StartListing (List); 
StartSrec (Srec, SourceFN) ; 


REPEAT 
LineParts (Source, EndFile, Label, OpCode, SrcOp, DestQp); 


GetObjectCode (Label, OpCode, 


SrcOp, DestOp, 
AddrCnt, ObjOp, Ob4jSrc, Ob4Dest, 
nA, no, ns, nD yz 


WriteListLine (List, AddrCnt, ObjOp, ObjSrc, ObjDest, nA, nO, nS, nD); 
WriteSrecLine (Srec, AddrCnt, ObjOp, ObjSrc, ObjDest, nA, nO, nS, nD); 
AdvAddrCnt (AddrCnt); 
UNTIL EndFile OR (CompareStr (OpCode, “END") = 0); 
EndSrec (Srec); (* Also: Finish off any partial line *) 
WriteErrorCount (List); (* Error count output to Console & Listing file *) 
WriteSymTab (List, NumSyms) ; (* Write Symbol Table to Listing File *) 
CloseFiles; 


END X68000. 


End Listings 


Dr. Dobb’s Journal, April 1986 


Now oevaileblie For the 
computer experimenter! 


COMPUTER CONNOISSEUR’S DELIGHT! 


NOW BE IN CONTROL WITH YOUR COMPUTER — THE ONLY PUBLICATION 
OF ITS KIND WRITTEN FOR THE USER. DISCOVER THE SECRETS AND 
LEARN THE VERSATILITY OF MODERN COMPUTER COMMAND CONTROL 
CONCEPTS. EXPERIMENT WITH COMPUTER AND TELEPHONE SYSTEMS, 
INTERFACE THEM, LEARN HOW THEY WORK, WHAT THEY DO... AND 
HOW TO GET THEM TO WORK FOR YOU! A COMPLETE TELEPHONE 
ENGINEERING COURSE IS INCLUDED IN MONTHLY CHAPTERS, BRING- 
ING YOU THROUGH STEP, CROSSBAR, ESS, BUBBLE, AND ATOMIC 
SWITCHING SYSTEMS! EXCLUSIVE COVERAGE IN BIOLOGICAL COMPUT- 
ING SYSTEMS, TOO! COMPUTERS AND TELEPHONES ARE THE FUTURE. 
THIS PUBLICATION IS AN ABSOLUTE MUST FOR EVERYONE INTERESTED. 


UNPUBLISHED 


MATERIAL <i one you ve all 


been waiting for> 


NOW AVAILABLE — Learn how to repair tele- 

phones and telephone systems, how they work, in 
monthly installments with the 
magazine for you. 


comics 


DIRECTORY 
LISTING 
NET- 
WORKS 


putel 


PUBLISHED MONTHLY 


ONE YEAR SUBSCRIPTION $14.00 
(SAMPLE COPY $2.00) 
SUBSCRIPTION & 2 PROGRAMS $20.00 


COMPUTEL—the complete SOURCE for everyone. 
You can now do the things you've only heard about, 
agit in the privacy of your own home. Indispensable 
reference to phreaks and hackers. Learn how to get 
all kinds of computer programs FREE. Get the inside 
story of big businesssystems—their quirks and flaws 
—and remain up to date with vital occurrences within 
the computer industry. Computel is a publication de- 
signed for everyone who has an intense curiosity of 
computer systems, containing a wealth of hard to find 
information, codes, and numbers. Published monthly. 


Comoutel Publishing Society 
6354 VAN NUYSBL., # 161-B / VAN NUYS, CA91401 
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oe | Transform Your Programs 
edward k. ream with 


aad CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor.23% 

e Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

e Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

¢ Optional extra feature: Imbed formatting or other commands 
in your.source code. (Lines starting with . or « are ignored.) 


Fast and flexible He 

e 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 

¢ Can be used for any language, including assembler. 

¢ Can be used as a stand-alone macro/ include processor. 

® Code can be used as the lexical analyzer for parsers or 
assemblers. 























olererere: 


Completes Sos 

e You get complete SOURCE CODE in standard C. 

e You get everything you need to use CPP immediately. 

e CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. 








Call or write today: 

Edward K. Ream 

1850 Summit Ave., Dept. DD 

Madison, WI 53705 

(608) 231-2952 

TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 


in U.S. dollars drawn on a U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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helps save time, money and cut frustrations. Compare, evaluate, and find products. 


* Programmer’s Referral List 
* Compare Products 

* Help find a Publisher * Rush Order 

* Evaluation Literature FREE + Over 700 products 
* BULLETIN BOARD - 7PM to 7AM 617-826-4086 


Al-Expert System Dev’t 












RECENT DISCOVERIES 
ESSENTIAL GRAPHICS - — 

C Library, fast, fonts, 

no royalties. PC $250 
MULTITASKING - 2 products, available 

| Topview, | callable library. Each $149 


Free Literature - Compare Products 


Evaluate products. Compare competitors. Leam about new alterna- 
tives. One free call brings information on just about any programming 
need. Ask for any “Packet’’ or Addon Packet [_] AI] ADA. Modula 
LIBASIC [}C’ LICOBOL (lEditos (FORTH LIFORTRAN 
LIPASCAL [JUNIX/PC or _JDebuggers. Linkers 


OS 


* Dealer’s Inquire 
* Newsletter 









Language-Compilers 








Arity System - incorporate with C ACTIVE TRACE, DEBUGGER - BDS C - solid value, fast CPM80 $125 
programs, rule & inheritance PC $295 BASICA, MBASIC, interactive, C86 by CI - 8087, reliable MS $299 
Ist Class - by example, interfaces $250 well liked MS $ 79 — Consulair Mac C w/toolkit MAC $299 
ExpertEASE - Develop by describing APC MegaBASIC - powerful PC $339 ECO C/88 MS $ 60 
examples of how you decide. MS $595 BASIC DEVELOPMENT SYSTEM - Lattice C - from Lifeboat MS $289 
EXSYS - Improved. Debug. MS $359 (BDS) for BASICA; Adds Renum. Lattice C - from Lattice MS $339 
Insight | - Probabilities, required crossref, compress. PC $105 Mark Williams - w/ debugger MS $399 
thresholds, menus, fast ($79). Basic Window PC $ 95 Megamax - tight full ATARI/ST $179 
Insight 2 adds backward, forward, BetterBASIC all RAM, modules, Microsoft C 3.0 - new _ MS $259 
partitions, dB2, language, access. structure. Full BASICA PC $169 = Q/C 88 by Code Works - Compiler 
MS $399 8087 Math Support PC $ 89 source, decent code, cross/native MS $295 
Others: APES ($359), Advisor ($949), Run-time module PC $235 Wizard C - Lattice C compatible, 
ES Construction ($100), ESP ($845), CADSAM FILE SYSTEM - full full sys. III, lint, fast. MS $379 
Experteach ($399), Expert Choice ($449) ISAM in MBASIC source. MS $ 75 
CB-86 - DRI CPM8&6, MS $449 C Language-interpreters 
Tih Data Manager - full source MS $325 5; 
List Our InfoREPORTER - multiple BUSSES SoM eer ie ara 
GC LISP Interpreter - “Common”, PC/BASIC for Macintosh - by -OBJ an » large progs. 
i i H.E.L.P. - innovative env. MS $ 90 
rich. Interactive tutorial $495 Call Pteradactyl. Compiles IBM BASICA, eae ak 
GC LISP286 Developer - 2 to 15 meg and MS BASIC for MAC syntax. $250 INSTA ne ee ea 
RAM, compiler & interp. $1195 Call Prof. Basic - Interactive, debug PC $ 85 Edit to en hee wae ; 
Microsoft MuLisp 85 $250 $199 8087 Math Support PC $175 ee e sh a $595 
TLC LISP - “LISP-Machine” - QuickBASIC by Microsoft - Compiles ae ppt ys g. 
like, all RAM, classes, compiler. full IBM BASICA, 640K PC $ 79 _ Introducing Le “ cape 
MS $225 TRUE Basic - ANSI PC $109 fast, self ae ree eas 
TransLISP - learn fast MS $ 75 Run-time Module PC $459 Professional ob - Run/C plus 
WALTZLISP - “FRANZ LISP” - sani ae FoBES, ie tis 
like, big nums, debug, CPM-80 MS $149 Joe eae ee 
Others: IQ LISP ($155), BYSO ($125) Macintosh: COBOL. - full MAC $459 un/U - imp 
MBP - Lev II, native MS $885 “ oe 
MicroFocus Prof. - full PC Call eC ees 
Microsoft Version II - upgraded. Application Programming Toolkit ars 
ARITY Standard - full, 4 Meg Full Lev. II, native, eae: MS $500 Bicice Cc Paste d ($109), C Tools 2 $ 89 
Pesan DAM ee ee Realia - very fast MS $929 — C Food by Lattice-ask for source MS $119 
Bee eae ee ae Ryan McFarland - portable MS $699 C Utilities by Essential - Comprehensive 
Se ee ae a screen graphics, strings, source. PC $139 
Pelee Witaced Panes oe $ 475 Solel a ld acre eT’) Entelekon C Function Library on : ie 
a ; Entelekon Superfonts for C 
Professional MicroProlog == MS $ 359 BRIEF Programmer's Editor - undo, Grechleat Pumenons<perables ASM $139 
ee ee rene windows, reconfigure PC Call Polytron - for Lattice, ASM source $ 85 
eens ee C Screen with source 80/86 $ 75 Software Horizons - Pack | PC $129 


Others: Prolog-I ($365), Prolog-2 ($1795) 


EMACS by UniPress - powerful, 


multifile, windows, DOS, MLISP, 


programming. 


Source:$949 $299 





 @§ Libraries-Communications 


Asynch by Blaise $149 
METHODS - SMALLTALK has ee CERES full C-lik ore Gisenlont full, fast $139 
objects, windows, more PC 3215 Epsilon - like » Tu IKE Software Horizons - pack 3 $119 
QNIAL - Combines APL with LISP. language. PC $169 ped 
Library of sample programs PAEEIME PY Re na a 
produ ity. 
aaenrics oh cereal hortantes MS cas Turbo ($69), Pascal ($229), or C ($239) FILES: C Index by Trio - fullB+ | 
Kedit - like XEDIT PC $115 Tree, vary length field, multi compiler 
Lattice Screen Editor - multiwindow, /File is object only $ 89 
multitasking Amiga $100 /Pro is partial source $179 
Dan Bricklin’s Demo Program MS $125 /Plus is full source $349 
Prototype quickly. User feedback PMATE - power, multitask 80/86 $159  C-Tree : $349 
without programming. All 250 VEDIT - well liked, macros, CBTREE- multiuser record locking, 
ASC characters plus attributes. buffers, CPM-80-86. MS PC $119 sequential, source, no royalties $99 
Subseting, macros. PC $ 75 XTC - multitasking PC $ 85 


C Worthy Library - Complete 
approach, library for applications. 
Machine independent; network compatible, 
Source, no royalties, for Lattice MS $295 


ATARIST & AMIGA 


We carry full lines of Manx, 


Lattice, Metacompo & Prospero. 


dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 $179 
Source - Single user MS $459 
Source - Multiuser MS $929 





AUiTD 


PROGRAMMERS SHOP 


Te 


provides complete information, advice, guarantees and every product for Microcomputer Programming. 


We support MSDOS (not just compatibles) 
PCDOS, Xenix-86, CPM-80, Macintosh, 
Atari ST, and Amiga. 






C Support-Systems 


Basic C Library by C Source PC $139 
C Debug - Source debuggers - by 
Complete Soft ($269), MSD ($149). 


C Sharp - well supported. Source, 


realtime, tasks MS $600 
C ToolSet - DIFF, xref, source MS $135 
Lattice Text Utilities MS $105 


The HAMMER by OES Systems PC $179 
SECURITY LIB - add encrypt to MSC. 
C86 programs. Source $250 PC $125 





hk dha Graphics 


Curses by Lattice PC $109 
CView - input, validate PC 3195 
C Power Windows by Entelekon PC $119 
Databurst - C or Basic PC $109 
GraphiC - source in C PC $219 


Topview Toolbasket by Lattice PC $219 
View Manager for C by Blaise PC $219 
Windows for C - fast PC $149 
Windows for Data - validation PC $209 


Peas 


Advanced Trace-86 by Morgan 


Modify code on fly. PC $149 
CODESMITH - visual, modify 

and rewrite Assembler PC $119 
CSPRITE - data structures PC $149 
Periscope I - own 16K PC $269 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC $119 
Pfix-86 Plus Symbolic Debugger 

by Phoenix - windows PC $289 


Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/ Breakswitch PC 3199 


Features 


Panel Screen Generator - Create 
screen with editor, generates 
code. Full data validation, 
windows, no royalties. Specify 
Lattice, MSC, C86, MS Fortran 
or Pascal MS $239 


Microsoft Cobol Tools - symbolic, 
windowing debugger w/ source support. 
Plus cross reference, Menu Handler, 


mouse support. $210 





NEW HOURS 
8:30 AM - 8:00 PM EST. 










SERVICE: FREE NEWSLETTER 


Software development and AI on micros: trends, forecasts, controver- 





Fortran & Supporting 
Forlib + by Alpha - graphics and 








file routines, Comm. MS $ 59 
Fortran>> C - FORTRIX C create 
maintainable translations. MS $5,495 
MACFortran by Microsoft - full 
‘77 Includes ASM output MAC $229 
MS Fortran MS $219 
No Limit - Fortran Scientific PC $129 
PolyFortran - xref, pp, screen MS $149 
Prospero - °66, reentrant MS $390 
RM Fortran - enhanced “IBM 
Professional Fortran” MS $399 
Scientific Subroutines - Matrix MS. $149 
Statistician by Alpha MS $269 
Strings and Things - register, shell 
Pe. 3 39 

MultiLanguage Support 
BTRIEVE ISAM MS $199 
CODESIFTER - Execution PRO- 

FILER. Spot bottlenecks. 

Symbolic. automatic. MS $109 
MultiH ALO Graphics- Multiple 

video boards, printer, rich. 

Animation, engineering, business. 

Any MS language, Lattice, C86 PC $189 
PLINK 86 - a program-independent 

overlay linker to 32 levels for all 

MS languages, C86 and Lattice. 

MS $279 

Pfinish Performance Analyzer 

by Phoenix MS $299 
Profiler by DWB Associates MS $ 99 
Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC $109 
ZAP Communications - VT 100, 

TEK 4010 emulation, fullxfer. PC $ 85 
TURBO PASCAL and SUPPORT 
BORLAND: Turbo 3.0 $ 49 
3.0 with 8087 or BCD $ 79 
3.0 with 8087 and BCD $ 85 
Turbo Graphix - graphs, windows $ 39 
Turbo Toolbox or Editor $ 55 
Turbo Tutor $ 29 
TURBO... Asynch by Blaise, full $ 85 
Power Tools by Blaise - library $ 85 
Power Utilities - profiler, pp $ 85 
Professional - interrupts, macros, $ 50 


OTHERS: Screen Sculptor ($99), 
Pascal Pac ($100), Tidy ($45), 


sies. innovations, and techniques. Plus an announcement of 80 NEW 
tools. CALL for the “Newsletter Packet.” 





Call for a catalog, literature, advice and service you can trust 


800-421-8006 


THE PROGRAMMER’S SHOP™ 
128- D Rockland Street, Hanover, MA 02339 


Mass: 800-442-8070 or 617-826-7531 
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RECENT DISCOVERY 


dBrief, the dBASE Assistant - 
optional syntax directed editing, 
screen gen, graphics, speed coding. 





dBASE Il, Ill, Clipper. PC $ 95 
OTHER LANGUAGES 

APL + PLUS/PC PC $469 
CLIPPER dBASE Compiler MS $449 


ED/ASM-86 by Oliver Computing. 
Integrated editor/assembler/ 
debugger w/8087 support. PC $ 85 
HS/FORTH - °79 & °83 Standards, 
fullRAM, ASM, BIOS, interrupts. 
Graph, multi-task, optimizer MS $250 
MacASM -- fast MS $ 99 
MasterForth by MicroMotion - floating 
point and relocator extensions 
available: Call MAC or PC $125 


Microsoft MASM - faster MS $109 
Microsoft PASCAL MS $199 
MODULA: M2SDS - popular PC $ 69 
Mystic Pascal - fast PC $ 64 


Paragon PASCAL - for performance: 
extensions like packages”, “Iterators”’, 
5 memory models. 65 bit 8087 strings. 


Spece vs. speed MS $665 
PASM - by phoenix MS $219 
PL1-86 - Ansi subset PU 532 
Prospero Pascal - full ISO + MS $390 


Turbo Edit/ASM - by Speedware PC $ 85 
St Sh & SUPPORT 


Basic - by Microsoft $295 
Cobol - by Microsoft $895 
Fortran - by Microsoft $429 


Xenix Complete Development System $985 
OTHER PRODUCTS 





CPRINT - by ENSCO MS $ 45 
dBASE to C Translator: dBx - 
no royalties, addon ISAM, 
Library Pioneer it MS $ 350 
Source $1000 
HTest/H Format - XT Fix PC ey 
Microsoft Windows PCa 
Opt Tech Sort- sort, merge MS $ 85 
Polymake by Polytron MS $ 85 


PS MAKE - Directly execute or Gen 

a batch file, batch, interactive. MS $ 129 
Qwik Net - critical path, 

resources, thorough; usable PC $ 695 
SET SCiE. MS $ 319 
SoftEast - Softwear Estimating 

and reporting. Pioncer it. MS $ 350 
Texsys - control source MS $ 89 
Visible Computer: 8088 - Simulates 

demos or any .exe. com, Debugger. 

350 pg. tutorial PC $59 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. All formats available. 


“| appreciate your service to the prog- 
ramming community, your prices are 
more than fair, and your newsletter 1s 
amongst the finest in the business.” 
Lawrence T. Fahnoe 
Fooian Systems, Ltd. 





METRIC MINIMIZER 
Use lS LISTING FOUR (continued from March) 


Group | ope 8 WS TABS 


*« 





* The line search and decision routines 
* (c) Copyright 1985, Billybob Software. All rights reserved. 
* This program may be reproduced for personal, non-profit use only. 


Over 75 volumes of public 
domain software including: 













. * / 
compilers 
editors 
#include "global.h" 
text formatters = 
communications [ERK RRERRE EKER EK KREERE EEK EEK REREERH EER KEKE ERR EK EEK EK KER A IHE EE REE E I / 
packages 
e many UNIX-like tools getatpia { ny LOM: exo RSOep.g Klin? 2’ gs. |. ve0 
. : lpha , deb ¢- Gare, 5 i ; 
Write or call for more details . CPt ee eee eS SO 
s int ae /* number of parameters */ 
The C Users Group double (*fun) () ; /* pointer to the function to minimize */ 
Post Office Box 97 double xx[] ; /* parameter vector x / 
McPherson, KS 67460 double xstep[] ; /* stepsize for parameter derivative calcs «/ 
(316) 241-1065 BOUND xlim[] ; /* limits on parameters ef 
double z{] ; /* gradient vector rf 
Circle no. 181 on reader service card. double s{] ; /* changes direction vector */ 
double g ; /* value of fen for the given vector xx */ 
double ~.g0.-; /* expected value of the minimum of the fen mf 
double *alpha ; /* scaling parameter we are trying to find a 
e ‘oe? int debug ; /* flag = 0 for no print, >0O for debug print xf 
Windows 4 ‘°C DATA data(] ; = /* the data */ 
ai 7 i int npoints ; /* number of data points xf 
ndows 4 ‘C’ is a comprehensive ; * * 
& package of fast C and Assembly double const[] ; /* constants vector needed by fcn / 
routines for screen and text base { 
window handling. ‘= 
* } } = 
Save yourself hours of pro ramming : find alpha according to Cohen, pp 279-280 
a and debugging by using this library of / 
prewritten functions (source code 
included, IBM PC compatible.) nt dae 
Great for ‘“‘pop-open” menus, help Static double u ; /* see Cohen ef 
= screens, flashy demos, error messages, static double eta ; /* see Cohen */ 
and much more. ' y i x 
static double t[VECMAX] ; /* see Cohen / 
Windows 4 ‘C’ is being purchased by static double text[VECMAX] ; /* same, in external coordinates */ 
BB many of the developers of top selling static double zt[VECMAX] ; /* the z for fcn evaluated at x =t */ 






software packages and fortune 500 








companies. static double gt ; /* the g that results from fen at “f/f 
} /* x =. */ 

ean pane static double nu ; /* see Cohen or 

Laguna Hills, CA 92654-3774 static double dad ; /* see Cohen */ 

(div. 8711) static double w ; /* see Cohen */ 






for Windows 4 ‘C’ or $3.00 
for a demo disk. 





static double templ ; 
static double temp2 ; 







When ordering specify 


WindowSoft | MicroSoft 3.0 


or Lattice 2.15 version. if (debug>1) { 


print£ ("\t\tt+++++++++t+++ettg+eeteete ln") 
printf£("\t\t+ line search procedure +\n") 
Print£ ("\t\tt++++++t+t++t+++++tteeet+etel\n") 
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Tree Shell 


h 
vies 
10 / 2 Z A 
My ge c 


i Se? COLE hy ee BS 
eta = 9250"? Ug <'go }. 7.2 2 


af feta 2.0) 
eta = 1.0 ; 
















. Ca 

A Graphic ref a for (i=0 ; i<n ; ++i) 

Visual Shell for wis <2 os t{i] = xx[i] + eta * s[i] ; 

Unix/Xenix wn? 2 

End-Users and = gozouta (nn 7 & »/ CEext> xlim )° 

Experts Alike! gt. ». (*fan)'( ‘const’. Céxt .,. @ata-,>npoints 0 yi; 
derivs (n, fun, t, xstep, xlim, zt, data, npoints, const, debug ); 
Hur ee) Crt oe ot oe 






Dealer 
inquiries 
welcomed. 






if (debug>1) 
{ 





printf("u and nu are: %11.4e %11.4e\n", u, nu) ; 
printf("g and gt are: %11.4e %$11.4e\n", g, an oy 
printf ("eta is: %11.4e\n", eta ) ; 

if (debug>2) 

{ 





i 


Cole Wet 


“A Higher Form of Software” 
24000 Telegraph Road 
Southfield, MI 48034 
(313) 352-2345 
TELEX: 386581 COGITATE USA 
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prin’! (“vector t is:\n") > 
your (i 1... f°) s 
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eT ee Zt is <\a"y i? Work Smart 

vVoucl MN} -2E ; e 

7 with These Powerful 
C Utilities 

a's. 3*(g°- gt) /éta.+ u + nu; 


iF (.ttempl = dd) -< themed = u*aw) 3 Get more value from your C system. 


{ Boost program quality and slash de- 
if (debug>1) velopment time with these professional 
{ utilities for leading C-compiler systems. 
printf("cubic interpolation has failed, ") ; 
int f ("ab ee ‘ i ri : eqe 6 
prin ("abou © take sqrt of negative number!\n") ; Cc Utility Library sya $155 


printf("d squared is %11.4e ", templ ) ; 
printf("and u*nu is %11.4e\n", temp2 ) ; 


Over 300 C subroutines 


printf ("difference is %11.4e\n", templ-temp2 ) ; C and assembler source code and 

} demonstration programs for screen han- 

if. i wx GO Ree ne e008 Bes gt <-g 5 dling, color printing, graphics, DOS 

{ disk and file functions, memory manage- 
aed on ; ment and peripherals control. 
1 ebug> 

se seas with alpha = eta\n") ; C-tree $395 $329 

return( OK ) ; B-Tree database system 

} Store, update and retrieve records 

else easily. High-level multi-key ISAM 

{ routines and low-level B-Tree 
*alpha = 0.0 ; functions. Available for MS-DOS, CP/ 
ee M-86, and CP/M-80. Easily transpor- 


printf("line search has failed\n") 
return( BADLS ) ; ted. Adaptable for network and 


} multiuser. Includes source. 


) PHACT $395” $200 













: Data Base Record Manager 
| eS wath niente) a Includes high-level features 
talpha = eta * (1.0 - (nu+w-d) /(nu-u+2.0*w) ) ; found in larger database systems. 
if (debug>1) Available for MS-DOS, CP/M-86 
printf("alpha returned is %11.4e\n", *alpha ) ; and CP/M-80. 
return( OK ) ; Pre-C $395 $329 
LINT-like source code analyzer 
Locates structural and usage errors. 
III IOI SIG ICISIOIGI IIIT IOI TICS IS TI III II IA IAI IIE III / Cross-checks multiple files for bad 
parameter declarations and other inter- 
decide (g , gnew,n, znewi, sigma, y, face errors. 
epsilon , itermin , iterations , debug ) Wikdoes for C $195°$165 
double g ; /* old value of minimum x / Versatile window utility 
double gnew ; /* new value of minimum */ Supports IBM PC compatible and some 
int n- 5 /* number of parameters x/ non-compatible environments. 
double znewil[] ; /* vector of new gradients */ 
double sigma[] ; /* change vector ice parameters x / PANEL . a $95 $235 
double y[] ; /* the transformation matrix x / Screen generating utility 
double epsilon[] ; /* cutoff criteria vector * / Create custom screens via simple, 
int itermin ; /* minimum number of iterations x / powerful editing commands. Select 
int iterations ; /* current iteration number */ colors, sizes and types, edit fields. 
int debug ; /* debug flag a] Includes direct input utility. 
Eats pt HALO se $199 
* makes the decision to continue iterating or not Ultimate C graphics 
* returns a zero if we want to keep going A comprehensive package of graphics 
* returns a positive number if we have a normal stopping reason subroutines for C. Supports multiple 
* returns a negative number if we have a catastrophic stopper graphics cards. 
ay 
PLINK-86 $308 $315 
static double edm ; Overlay linker 
static double temp[VECMAX] ; Includes linkage editor, overlay manage- 
ment, a library manager and memory 
= (debug>1) mapping. Works with Microsoft and 
print£ ("\t\ttt+tttttttttttetttetttt+t\n") | Intel object format. 
printf ("\t\t+ decision making logic +\n") 
printé ("\t\ttttttttttttttttttttt+++++\n") 
printf("old minimum was: %11.4e, new minimum is %$11.4e\n", To order or for information call: 
G » gnew }) ¢ 
printf ("ratio new/old is: %11.4e\n", gnew/g ) ; 
} 
/* 
* exit if the new "minimum" is greater than or equal to the old minimum 
: 1 800-TEC- WARE 







UG, 


(In NJ call 201-530-6307) 
Circle no. 109 on reader service card. ~ G 
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TOTAL RECALL 


FOR $104.95 3 @ 


Now you can retrieve everything 
you entered during program 
development -- from version 
one thru all updates. SRMS 
does it with a completa 
source utlity at an af- 
fordable price. 

You can retrieve specific 
versions of a program, 
make changes and rein- 
state the source while 
recording when, why and 
where changes were made. 


All versions are stored ina 
single library without dupii- 
cation of common code or sal 
text -- saves disk space. You can also store comments 
specific to each version -- provides complete develop- 
ment history and documentation of the program. 
SRMS supports recall and edit of programs written in 
BASIC, FORTRAN, PASCAL (including Turbo Pascal), 
C and ASSEMBLY CODE. 


Requires MS or PC DOS, Version 2 and up with 128K 
and one disk (floppy or hard). 





. 2 7048 Stratford Road 
Quilt Computing woosbury, mn 55125 
(612) 739-4650 





Circle no. 107 on reader service card. 


Dr. Dobb's Journal 


subscription 
Problems? 


No Problem! 


Co 


Give us a call and we'll 
straighten it out. Today. 


Outside California 
CALL TOLL FREE: 800-321-3333 


Inside California 
CALL: 619-485-6535 or 6536 














METRIC MINIMIZER 


LISTING FOUR (Listing continued) 


if (gnew >= g) 
{ 
if (debug>1) 
printf("STOP!!! new minimum is not lower! \n") ; 
return( BADMIN ) ; 
} 


/* 

* if the edm (estimated distance to the minimum) is negative we have 
* a catastrophic problem and should stop 

*y 


matvec( n, y , znewi , temp ) ; 
edm = dot( n, znewi , temp ) ; 


if( edm < 0.0 ) 
{ 
if (debug>1l) 
printf ("STOP!!! edm is negative = %11.4e\n", edm); 
return( NEGEDM ) ; 
} 


/* 
* now look at normal exits if the minimum number of iterations has 
* been accomplished 
*/ 


if (iterations < itermin) { 
if (debug>1) printf("-->keep going, too few iterations\n") 
return( OK ) ; 

} 


/* 
* edm test: two ways to calculate, stop if either satisfies 
a7 


if (edm < epsilon[0]) 
{ 
if (debug>1) 
printf("STOP, close enough, edm = %11.4e\n", edm); 
return( EDM1 ) ; 
} 


edm = dot( n , sigma , sigma ) ; 


if (edm < epsilon[0}) 
{ 
if (debug>1) 
printf("STOP, close enough, edm = %11.4e\n", edm); 
return( EDM2 ) ; 
} 


7* 
* % change in g less than "something" means that approach is too slow 


my 


if ( g-gnew < epsilon[1]*qg ) 
{ 
if (debug>1) 
printf("STOP, too slow, fractional change = %11.4e\n", 


(g-gnew)/g ) ; 
return( TOOSML ) ; 
} 


/* 

* fall through case 

* note that case of maximum number of iterations is handled in the 
* calling program 

*«/ 


if (debug>1) 
printf ("--->keep going, no stoppers found...\n") 


return( OK ) ; 


End Listing Four 
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Get the ProDOS advantage for 


LISTING FIVE dieu Aztec COS’ anu 


VIX is a UNIX like operating system 
designed to run Manx’s Aztec C65 software 
under ProDOS. With VIX, programs 
running under the SHELL will run under 
ProDOS including c65, cci, as65, asi, In, 
* Routines for updating the matrix y mklib and others. System includes: 

(c) Copyright 1985, Billybob Software. All rights reserved. 
* This program may be reproduced for personal, non-profit use only. 


fe 2UR.C 


Standard utilities: cat, cp, date, |, mkdir, 


ren, rm and stty. 





= An improved library written in 6502 
assembly. 
#include "“global.h" A fast screen editor with undelete, auto- 
indent, work wrap and more. 
[kono -------- + === - = -- +--+ $5 $$ 5 eee nen * / Source code to entire system except 
editor. 
dfpa’ ton, sigma , xi, a, debug ) VIX - $49.95 + $3.50 shipping 
double *sigma ; /* changes vector * / b-tree with source-$350 
double *xi ; /* change in gradient vector = Ecli 
. stems 
double *a ; /* the result = ees @ Sy te 
int debug ; /* flag = 0 for no print, >0O for debug print xf 223 Matthew Road 
{ Merion Station, Pa. 19066 
/* (215) 664-2419 
* Compute the matrix A which is used to correct Y Circle no. 253 on reader service card. 
* Davidon Fletcher Powell method 
* 

: IC, PROMPT DELIVERY!!! 
the e S SAME DAY SHIPPING (USUALLY) 
double norm ; OUTSIDE OKLAHOMA: NO SALES TAX 
double *t ; “ 

mre |V20 $16.00 30 $17.50 
eta oS ee 8087-2 Math Coprocessors 150.00 
cross( n, sigma, sigma, a) ; re DYNAMIC RAM 
norm = 1.0 / dot( n, sigma, xi) ; a: 256K = 64Kx4._ 150 ns re 
Mem 256K 256Kx1 150 ns ae 
whilet 4-3 eee 128K = 128Kx1 150 ns Ws 
wie pas “eres Py 64K 16Kx4 150ns cc & 
ram 664K 64Kx1 150 ns rio 
Pa 
if (debug>1) ae EPROM S¥ 
{ mem 270256 32kx8 250 ns ee 
printf ("AAAAA correcting matrix AAAAA is:\n") ; Ok 27128 16Kx8 250 ns ae 
} Bem 2764 8Kx8 250 ns ss 
<2 STATIC RAM 
m 6264LP-15 8kxs8 150 ns 
/*-~------------------ --- +--+ - = - = - = nn nnn nner x / 
MasterCard/VISA or UPS CASH COD 
dfpb (n, y, xi, b, debug ) ronrepex | Factory New, Prime Parts uPoo 
double *y ; /* current Y matrix “gy : BEGGS OK 74421" (918) 267-4961 
double *xi ; /* change in gradient vector x / _ieeee wbiow ations See Se a 24, 1986 
double *b ; /* the result */ somo parts due © sugpay & demand and o rangre cos "chiepng tamance was Cot 
: c : f Gacoura prises shown Orders received by 6 PM C: can usually be delivered to you by the next 
int debug ; /* flag = 0 if no print, >0O for debug print «/ Federal Express Standard Air @ $6.00, or Priortty One @ $13.00! 





{ 


Circle no. 105 on reader service card. 


/* 
* compute the matrix B which is used to update Y 
* Davidon Fletcher Powell method 








_F 


int “x 

static double temp[VECMAX] ; 
double *t ; 

double norm ; 


t=b; 

matvec( n, y , xi, temp ) ; 

norm = - 1.0 / dot( n, temp, xi) ; 
cross, n, temp , temp, b) ; 

i =n*n ; 


while( i-- ) 
*b++ *= norm ; 


if (debug>1) 
{ 


printf ("BBBBB correcting matrix BBBBB is:\n") ; 
mous ( fst 4- 3 


(continued on next page) 
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New Release 


CP/ M~<—> ISIS 


PDS & MDS 






ICX v.4 eXchanger now supports BOTH 8” 
MDS and 5-1/4" iPDS formats. 
Manipulation of ISIS-II files using your 
CP/M system was never easier. 


ISE v.6 Emulator gives the CP/M-80 user 
access to all the ISIS-II .languages and 
utilities. 





Complete source (C and MAC asm) 
included with all packages 








eoceoeereeeeeeseeeeeeeeeee 






Copyrights: CP/M Digital Research, Inc 
ISIS-II and iPDS Intel Corp 


Soe : 
: Wester n Wares 


303-327-4898 ® Box C * Norwood, CO 8142 
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Products With 


LISTING FIVE (Listing continued) 





Expandabilit 








A two user Slave card based on 
Hitachi’s Z80 compatible high speed, 
1OMHz super microprocessor. 


- $495" 


Features Include. . . 


4-10 MHz Z80 Compatible HD64180 
1/2 Megabyte Nonbanked Memory 
2 Asynchronous Serial Ports To 38.4 
1 High Speed Synchronous Port 
All Transfers Via 1.6 MHz DMA!!! 
Unique Expansion Port Offers; 

2 Additional Serial Ports or... 

2 Parallel Ports or... 

Real Time Clock With Battery Backup 





The nduetys fastest 8-bit Master CPU 
card with features superior to most 
16-bit cards. 


~~ $495° 


Each Master Features... 


4-10 MHz Z80 Compatible HD64180 
1/2 Megabyte Nonbanked Memory 
2 Asynchronous Serial Ports To 38.4 
1 High Speed Synchronous Serial Port 
4 Bi-directional Parallel Ports 
TurboDOS**, ZSYSTEMS**, CP/M**, 
& OASIS** Operating Systems 
FDC Simultaneously Controls 
8”, 5%”, & 3%” Drives 
¢ SASI/SCSI Interface 
¢ Optional High Speed Hard Disk/File 
Access Tape Backup and True 
ETHERNET Controller 


*Prices apply to 6 MHz, 64KB versions and 
are good for a limited time only on 
purchases of ten or more. For less than 
ten, please call. 


**Trademarks: TurboDOS - Software 2000; ZSYSTEMS - 
Echelon; CP/M - Digital Research; OASIS - THEOS Software 


CdD INTELLIGENT COMPUTER 


DESIGNS CORP. 


23151 Verdugo Drive, Suite 113 
Laguna Hills, CA 92653 
(714) 581-7500 
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/* a a a wm ww wm mw we a we ee a ee ee ee ee a = ee we * / 
bfgsa (n-, y . sigma ,” x1i°;“a-,) debug’) 
int n> /* number of parameters */ 
double *y ; /* current Y matrix x? 
double *sigma ; /* changes vector “7 
double *xi ; /* change in gradient vector = 
double *a ; /* the result */ 
int debug ; /* flag = 0 for no print, >0O for debug print */ 
{ 
/* 
* compute the matrix A which is used to correct Y 
* Broyden Fletcher Goldfarb Shanno method 
ay 
int Ae ee oe 
Static double temp[VECMAX] ; 
static double tmpa[MATMAX] ; 
double norm ; 
NotKn.S 40 -f Got tn; sigea..< xi bs 
matvec( A. Y-, 21. , temp ) ; 
for (j*0. 7 -3en.g +¥9) 
temp(j] = sigma[j] - temp[j] ; 
cross( n, temp , sigma , tmpa ) ; 
cross({ n , sigma ,;-temp , a Ls 
i = n*n ; 
for (j=0.¢ <i ; ++ 9) 
afj] = norm * ( a[j]) + tmpa[j] ) ; 
if (debug>1) 
{ 
printf ("AAAAA correcting matrix AAAAA is:\n") 
mout(* "i , ‘a } 3 
} 
} 
/* me a a a a a a a a a a a a a a ee ee eee ee * / 
bigsb--(-n » ¥.,. sigma , xi, D-, debug.) 
int n -; /* number of parameters Fe 
double *y ; /* current Y matrix x / 
double *sigma ; /* changes vector */ 
double *xi ; /* change in gradient vector a 
double *b ; /* the result * / 
int debug ; /* flag = 0 if no print, >0O for debug print af 
{ 
/* 


* compute the matrix B which is used to update Y 
* Broyden Fletcher Goldfarb Shanno method 


*/ 
int 3 
static double temp[VECMAX] ; 
double *t ; 
double norm ; 
t= 5b 
norm = 1.0 / dot( n, sigma, xi) ; 
norm = - norm * norm ; 
matvec( n, y , xi, temp ) ; 
for (i=W0;\; 2d2n 3: +4) 
temp[i] = sigma[i] - temp[i] ; 
norm *= dot( n, temp , xi ) ; 
cress{ n-, sigma’, sigma... b ) <> 
i = n¥n ; 
while( i-- ) 
*b++ *= norm ; 
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if (debug>1) 
{ 
printf ("BBBBB correcting matrix BBBBB is:\n") ; 


meat Aus kh: Fe 


gety (nm, a; bb, YY + debug } 
int N=; 

double *a ; 

double *b ; 

double *y ; 


int debug ; 
{ 
/* 
* use matrices A and B to correct Y 
*/ 
int 1 ¢ 


double *t ; 


G = ¥-s 
i = n*n ; 
while( i-- ) 


7944 t= *Qe+ + *D++ | 


if (debug>1) 

{ 
printf ("YYYYY new matrix YYYYY is:\n") ; 
meuti~n:, *&.)}) 2 


End Listing Five 


LISTING SIX 


fPMETIL CS 


* Contains miscellaneous routines needed for variable metric minimization 
* program, including matrix and vector utilities 

* (c) Copyright 1985, Billybob Software. All rights reserved. 

* This program may be reproduced for personal, non-profit use only. 


#include "global.h" 
#define INALINE 6 
/* eee nn a a a a a a ww ww wr wm we ew we we a os ee ee ee ee ee */ 


gozinta( n, xintern , xextern , xlim ) 
int n } 

double xintern[] ; 

double xextern[] ; 

BOUND xlim[] ; 

{ 


/* 

* transform all external coordinates to internal coordinates 
x / 

int i; 


for ( i=0 5 ‘i<n ¢ ++i ) 
tointern( i, xintern , xextern , xlim) ; 


/* on es a en a eae a Oy 0s ns a a Snes a ene ls es Se US Ss SS SS eS ew nS ks se ees ee a ee ow es ww ed er x / 
gozouta( n, xintern , xextern , xlim ) 

int Hg 

double xintern[] ; 

double xextern[] ; 


BOUND xlim[] ; 
{ 


/* 

* transform all internal coordinates to external coordinates 
*/ 

ant Ce 


(continued on next page) 
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COMPLETE SOURCES 
NO ROYALTIES 


COMPREHENSIVE C Power Packs 
include over 1000 functions which 
provide an integrated environment 
for developing your applications ef- 
ficiently. ‘This is a beautifully doc- 
umented, incredibly comprehensive 
set of C Function Libraries.”’ 

— Dr. Dobb’s Journal, July 1984 


USEFUL “‘...can be used as an ex- 
cellent learning tool for beginning C 
Programmers...” 

— PC User’s Group of Colorado, Jan. 1985 


FLEXIBLE Most Compilers and all 
Memory Models supported. 


RECOMMENDED ‘“‘I have no hesita- 
tion in recommending it to any pro- 
grammer interested in producing 
more applications code, using more 
of the PC capabilities, in much less 
time.” — Microsystems, Oct. 1984 


gy PACK 1: Building Blocks | $149 
DOS, Keyboard, File, 
Printer, Video, Async 


gy PACK 2: Database $399 
B-Tree, Virtual Memory, 
Lists, Variable Records 


gm PACK 3: Communications $149 
Smartmodem™, Xon/Xoff, 
X-Modem, Modem-7 


gy PACK 4: Building Blocks I! $149 
Dates, Textwindows, Menus, 
Data Compression, Graphics 


mg PACK 5: Mathematics | $99 
Log, Trig, Random, 
Std Deviation 


ga PACK 6: Utilities | $99 
(EXE files) 
Arc, Diff, Replace, Scan, Wipe 
-Master Card/Visa, $7 Shipping, Mass. Sales Tax 5% 
ASK FOR FREE DEMO DISKETTE 


NOVUM HE SOFTWARE 
ORGANUM HORIZONS 
INC. @ inc 


44 Mall Rd., Burlington, MA 01803 
(617) 273-4711 
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FB a ls re a meee ett he eli pg i lal al gy a cpu tr is ace tise sis So x / 
tointern ( j, xintern , xextern , xlim ) 
int a. 5 /* parameter to transform =F 
double xintern[] ; /* internal coordinates 7h 
double xextern[] ; /* external coordinates “7 
BOUND xlim{(] -; /* limits on the parameters = 7s 
{ 
/* 
* transform to unbounded "internal" coordinates used by 
* minimization program. 
“7 
double y ; 
Lf{'xlim[j) -f1:) 
{ 
if ( xlim[j]).mi == 0.0 ) 
xintern[j] = xextern[j] ; 
else 
{ 
y = ( (xextern(j)-xlim[j].lo) / xlim{j).mi ) - 1.0 ; 
xantern[ >} --atan(y /- sart(i.0 = y*y )°:) 3 
) 
} 
else 
xintern[j]) = xextern[j] ; 
} 
/*-------------------------- +--+ - +--+ - --- +--+ - = - = - = = = == == x / 
toextern ( j , xintern , xextern , xlim ) 
int 41.3 /* parameter to transform */ 
double xintern[] ; /* internal coordinates * / 
double xextern[]) ; /* external coordinates */ 
BOUND xlim[) ; /* limits on the parameters */ 
{ 
/* 
* transforms to bounded "external" coordinates known to the real world 
* i 
1f( xlimtj)sé1. 
xextern[j] = xlim[({j]).lo + xlim[{j].mi * 
( gin (xiateral4)}..*+° 2.20 -} + 
else 
xextern(j] = xintern[j] ; 
} 
/* SEM Oa we REO Oe Se ee ORE DOE SE OO SOO BOO ewe See Owe we we ee ewe * / 
dérive.( n , fun“, -xintern:.,; xstes... Xiie 2, data... ‘m., const | debug’) 
int n 3 /* number of parameters af 
double (*fun) () ; /* pointer to the function to minimize */ 
double xintern[) ; /* coordinates vector */ 
double xstep[] ; /* step size to take on each component */ 
BOUND xlim[] ; /* limit vector */ 
double z[] ; /* derivative vector */ 
DATA data[]) ; /* the data af 
ante m ; /* number of data points x / 
double const[] ; /* constants required by fcn x / 
int debug ; /* debug flag =f 
{ 
/* 
* compute the derivatives of the vector x using a simple 
* finite difference. 
x] 
int aic3 
static double xextern[(VECMAX];/* throwaway vector in ext coords */ 
static double fl , f2 ; /* values of fcn at +/- stepsize */ 


METRIC MINIMIZER 
LISTING SIX (visting continued) 


for .¢..290 dn ee 


toextern( i, xintern , xextern , xlim) ; 


static double xtemp ; 
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static double eps ; 


xintern , xextern , 


i<n ; ++i ) 


gozouta(n, 
for ( i=0 ; 
{ 


xintern[i] ; 
= fabs( xtemp ) 


xtemp + eps ; 


xtemp 
eps 
xintern[i] 


* 


toextern( i, xintern , 
Et} (*£1n) (<= Const -, 


xintern [i] xtemp - eps ; 


toextern( i, xintern , 
te (*fun) ( const , 
z[{i] 


if (debug>2) 


xextern , 
xextern , 


xextern , 
xextern , 
(fl = .22)- 7 -€ 2.0°* Opa}. 3 


xliw }. 2 


xstep[i] ; 


xiim }--7 


pace ty m , 0) ‘3 


xlim ) ; 


date mw, G.}) : 


printf("i,f1,f2,step,deriv td %12e %12e %12e %12e\n", 


i, 


xintern [i] 
toextern( i, 


xtemp ; 
xintern , 


} 


Lf 
{ 


(debug==2) 


fiy 


xextern , 


t2.@nS , 2041} °z 


xlim } ; 


printf("derivatives are:\n"); 


VaUunf-<n: 2. st -).3 


raz iterlim , nreset 


gO , epsilon , 


itermin , 
param , 


( nparam , 


FTL Modula-Il 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full Z8O0 CP/M compiler (MSDOS version 
soon)! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true Z80.COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 


FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-ll 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 


Workman and Associates 
112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 


We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 
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, debug , limit , dstep , 


method ) 


(continued on next page) 


The First Idea-Processor For Programmers. 
Fir sTime”™ Has features no other editor has. 


Fast program entry through single keystroke statement generators 

Fast editing through syntax oriented cursor movements 

Dramatically reduced debugging time through immediate syntax checking. 

The error checking is thorough and includes semantics « Undefined variables, 
types and constants * Assignment statements with mismatched types 

¢ Errors in inciude files and macro expansions 


BO fi 


Automatic program formatter (you specify the rules) 


L) Command DOS from FirsTime 
Reading a file with errors moves cursor automatically to point of error 


Split Screen editing 


Unique programmer-oriented features 
* zoom command gives top-down view of program logic 
* view macro command shows expansion of a C macro in the editor 
* view/update include file allows you to view and update an include file 


* transform command allows you to transform statements to related ones 
* search for next error command 


































“iil 
Ae 


J The bug stopshere. | 


FirsTime for Turbo Pascal $ 74.95 





To Order Call: (201) 741-8188 or write: 
SPRUCE TECHNOLOGY CORPORATION 


FirsTime for dBase III $125.00 
FirsTime for MS-Pascal $245.00 
PO. Box 7948 FirsTime for C $295.00 
Shrewsbury, NJ 07701 
FirsTime is a trademark of Spruce Technology Corporation * MS-DOS is a trademark of 
Microsoft Corporation * IBM is a trademark of International Business Machines Inc 
* Turbo Pascal is a trademark of Borland International « dBase III is a trademark of Ashton-Tate. 
Circle no. 164 on reader service card. 
91 


METRIC MINIMIZER 
LISTING SIX (isting continued) 





Lat *nparam ; /* number of parameters */ 
int *itermin ; /* minimum number of iterations */ 
int *iterlim: ; /* maximum number of iterations */ 
int *nreset ; /* reset y after nreset iters og 
int *debug ; /* debug flag aa 
BOUND limit[] ; /* limit vector xs 
double dstep[] ; /* step size for derivatives oF 
double param[] ; /* initial values of parameters */ 
double *gO ; /* expected value of minimum */] 
double epsilon[] ; /* stopping criteria vector a 
int *method ; /* update method for y xy 
{ 
/* 


* reinitialize important parameters before reading, so that we 
* can later test to see if they were set in the dataset 


“7 

int 1.2 

*debug = *nparam = *itermin = *iterlim = *nreset = 0 ; 
*g0 = 0.0 ; 


kmethod = DFP ; 


for ( j=0 ; }<VECMAX ; ++} ) 
{ 


limit (jj). £1 = 0 : 
dstep[j]) = 0.0. 3 
epsilon[j]) = 0.0 ; 
param([j] = 0.0 ; 
} 
} 
/* ei ee ce een “Sis etn (es lv teases 0d eas pw ce enn ees es an SAS aw ome me a Ne a ee a ss a ee ne an eae Os ee a ne aw as Se aw een owen os x / 
dfault (n, itermin , iterlim , nreset , epsilon , xlim, dstep , debug ) 
int n 7 /* number of parameters af 
int *itermin ; /* minimum number of iterations * / 
int *iterlim ; /* maximum number of iterations uf 
int *nreset ; /* reset y matrix after this many iters */ 
double epsilon[]) ; /* stopping criteria vector */ 
BOUND xlim[] ; /* limit vector for parameters */ 
double dstep[] ; /* step sizes for derivative calc */ 
int debug ; /* flag for debug “Ye 
{ 
/* 
* this routine sets defaults if parameters not set with input data 
a 
int ne 
if (debug) 


{ 
print£ ("\t\t++t+++tt+++++tt++t+tt\n") 


printf ("\t\t+ initializations +\n") ; 
printf ("\t\tt+t+t+t+tt+++tttete\n") 
} 


/* 
* check that the number of parameters has been set; fatal error if not! 
=f 
LE obR +) 
recurn{ <1) 7 
/* 
* set up other defaults as required -- these depend on knowing n 
xy 
if ( !*itermin ) 
*itermin =n ; 
Lf °¢ LPT ROE im ) 


*iterlim = 2¥*n ; 


if-_¢-?}4ntreset’ —) 
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*nreset = (3*n)/2 ; 


for (j=0 ; j<n ; ++3) 
if (dstep[j) == 
dstep[j] 


0) 
0.01 ; 


. 


if (debug) 
{ 
printf ("min iters = %3d, max iters = %3d, ", *itermin , 
*ltetiig 7. > 
printf("reset y every %3d iterations\n", *nreset ) ; 
printf ("step sizes for derivatives:\n") ; vout( n, dstep ) ; 
} 


if ( epsilon[(0]) == 0.0 ) 
{ 
epsilon[0] = 1.0e-06 ; 
epsilon[1] = 0.001 ; 
if (debug) printf("epsilons set to defaults:\n") 
} 
else if (debug) 
printf("epsilons from input data:\n") 


if (debug) 
vout( NEPS , epsilon ) ; 


note that if you add other stopping criteria (more elements in 
the epsilon vector) you will have to modify this code 


the following defaults were set in raz and remain if not changed 
by the data read in reader: 
starting values of parameters: 0,9 
¢ expected value of minimum: 0.0 
constrained/unconstrained: unconstrained (all) 
parameter names: blank 


* & & © F NH MN EK 


(continued on next page) 


QUICK REF 


Indexing at your fingertips! Take the 
pressure off the tedious search for that much 
needed article. 


Quick Ref offers rapid recall of magazine ar- 
ticles by title, author, and key combinations. 


FOR THE INTRODUCTORY PRICE OF 
$34.95 * Key access to magazine 


articles 
QUICK REF) *f35.S0.9 Ss 
PROVIDES: binations 


* Convenient on-line help 
* Easy to use manual 


FREE INTRODUCTORY OFFER Programming the 


WITH PURCHASE 65816 Microprocessor 
The completely indexed Including 6502 and 65C02 


Dr. Dobb’s Journal 
Data Base 


Available for IBM Compatibles and Victor 9000 


Terra Base Software 
906 S. 8th Street 
Laramie, Wyoming 82070 


(800) 238-4790 9:00 A.M.—5:00 P.M. M.S.T. ee 

avid Eyes 
All orders shipped U.P.S. Surface shipping included in price. 
Visa/MasterCard accepted. Foreign orders please add $15.00. Checks must 
be on U.S. Bank in U.S. dollars. Specify machine and DOS version. 





Circle no. 231 on reader service card. 


Circle no. 202 on reader service card. 
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METRIC MINIMIZER 


LISTING SIX (Listing continued) 


* updating method for y : Davidon-Fletcher-Powell (DFP) 


* 


* variables used for intern<-->extern conversions: 


“s 


for (j=0 7 J<n_ 7 -J+*) 
if* {(xlam€3)..f1) 
xlim[j].mi--= (xlim{j}).up.-— xlim[j} .L0),. 7°-2.0 ; 





return( 0) ; 


vout (n,a) 
int n ; 
double *a ; 

{ 


* output the floating point vector a with n components 
* INALINE values to a line, indent succeeding lines appropriately 
i 


pralinet 1-7-4. 40>) 3 
putchar ("\n"})3 


/* ss i RL ame is ADRS i <a igs nen ek ii‘ i es ee su at snc mei ae ch aa cen es sds Nig ae aos ol pe naa wae are x / 
praline( n, a, indent ) 
int ne; 
double *a ; 
int indent ; 
{ 
f* 
* print out as many lines as required, indenting as we go 
nF 
int 4% 


if ( indent ) 
{ 
putchar('\n') ; 
for ( i=indent ; i; --i ) 
putchar (*--*); 
} 


for ( i=INALINE ; 1 6€6&€ n ; --i, --n ) 
printt(*41i.46 °°" ;*atte ) 3 


if-¢{:ta} 
return-:; 


praline( n, a, ++indent ) ; 


J. cn st sit i nal ey fae ts aay ii ta en jeden i eae peo Emin ease ah tn ssa stint * / 
mout (n, a) 
int ny 


double *a ; 
{ 


/* 

* output the floating point matrix a with n by n components 
tf 

int tz 


double *p ; 


double dot( n,as,b ) 
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int ny 
double. :*a ,* *b'; 
{ 
y is 
7 * dot product of the vectors a and b, n components each 


ws 


double c; 
& = O26" 73 
while( n-- ) 


c += *at++ * *bt++ ;7 
return( c) ? 


reset (nn, 
int ae 
double *y ; 
{ 


the n by n matrix y equal to the identity matrix 


ie ae 
anol, je nee Le wndy. 5 nA) 


ih de eae ogee dS 
while ‘¢:j}-= 


(continued on next page) 





C CODE FOR THE PC 


WORLD’S FIRST source code, of course 
ASSEMBLER INTERPRETER 


Advanced Trace86™ 2.0 


Create .COM programs with BASIC-like com- 
mands: LOAD, SAVE, EDIT, LIST, RUN. ; : 
Reloadable into AT86, complete with all Coder’s Prolog BE ie hoa ae aa 


labels, comments & variable names. 
Macro Assembler support-scan .MAP and .LST LEX QUE aE, Se er el”. F,eie, Parone, Jane $25 
files for labels and variable names 

| WAC PRES oo Se ee 
Full-screen symbolic tracing of any program. 
Powerful conditional breakpoint facilities, Small-C compiler for 8088 ... . $20 


including hardware “‘button” support (if 
installed) 


————oi 


Concurrent. Cee es eee eee 


| tiny-c interpreter & shell . . . . . $20 


“Screen save” option, or use dual monitors 

Hex/decimal calculator & converter Xlisp 1.5a & Hie rOlOe 6 at) ole a Ts $20 
Best 8087/80286/80287 | 

re . SEEOST AA Mie RAEKS' CEO GIs Ge Ca Sen a ae 
And more... Priced at $175.00 


; : ater 
To order or request more information contact: ——SSSaee 


= Morgan Computing Co. Inc. The Austin Code Works 


(214) 245-4763 11100 Leafwood Lane 


Austin, Texas 78750-3409 
P.O. Box 112730, Carrollton, TX 75Oll (512) 258-0785 





Tree shipping on prepaid orders No credit cards 
Circle no. 128 on reader service card. 
Circle no. 250 on reader service card. 
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METRIC MINIMIZER 
LISTING SIX (risting continued) 





Grosst ff « Fi «V2 +50 
int n- 7 
double *vl 
double *v2 
double *m ; 


{ 


Se Se 


fe 
* product of two vectors of dimension n yielding an n by n matrix 
* f ’ 

int 1 es 


double *p ; 


for{ t=n-,.. pev2 2-13 iy» MOL 4 Bev2e 4 
for({ jon. [re =7 } 
ARES.‘ ee], Spy 





matvec( n-, mM, Vi» w2 >) 
int n ; 
double *m ; 
double *vl 
double *v2 
{ 


=e =e 


/* 
* product of ann by n matrix and a column vector with n components 
* yielding a second n component vector: m * vl = v2 
a7 

int iL 4 SS 

double *p ; 

for ( i=n , p=vl ; i; --i , t+v2 , p=vil ) 

For’ (' g8n* 2 *v2"0.0 Fo 5. g -=—%} 7) 
*y2 (+= *mt++ * *ptt 7; 


End Listing Six 


LISTING SEVEN 


/* READ.C | 
* 
* reads standard input to get appropriate parameters 

* echoes the data as it is read 

* (c) Copyright 1985, Billybob Software. All rights reserved. 

* This program may be reproduced for personal, non-profit use only. 
=f 

#include "global.h" 

#define LEN 130 

#define MAXKEY 19 

#define DEBUGON if (*debug) 

#define LF putchar('\n') 


[RRR RII II IOI IOI II ITI IOI II II III III IO I / 


reader ( fun , const , nparam , param., limit™,. dstep:, pname , 
epsilon , itermin , iterlim , nreset , gO , debug , 
data , npoints , npmax , method ) 


int *Liun.\7 /* address of function (non-portable) «/ 
double const[] ; /* values of constants used in fen */ 
int *“nparam ; /* number of parameters to be found by fitting my 
double param[) ; /* starting values of parameters */ 
BOUND limit[] ; /* on-off flag, upper and lower limits a 
double dstep[] ; /* step sizes used to calculate derivatives xf 
char *pname[] ; /* parameter names *f/ 
double epsilon[] ; /* vector of stopping criteria for iteration x7 
int *itermin ; /* minimum number of iterations required */ 
int *iterlim ; /* maximum number of iterations allowed xf 
int *nreset ; /* # of iters to reset y matrix — 
double *g0; /* expected value of minimum a 
int *debug ; /* debug mode x/ 
DATA data[] ; /* data from input file ¥F 
int *npoints ; /* number of data points moe 


(continued on page 98) 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 


DIGITAL RESEARCH COMPUTERS 






(214) 225-2309 
64K 7 STATIC RAM 


$990 


LOW POWER! 
150 NS ADD $10 


BLANK PC BOARD 
WITH DOCUMENTATION 


$49.95 FEATURES: PRICE CUT! 


SUPPORT ICs + CAPS ~ * Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$17.50 * Fully supports IEEE 696 24 BIT Extended 
° Addressing. 
* 64K draws only approximately 500 MA. 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 
SPEED APPLICATIONS.) 
FULLY SUPPORTS THE . supports PHANTOM (BOTH LOWER 32K 
NEW IEEE 696 S100 AND ENTIRE BOARD). 
STANDARD 2716 EPROMs may be installed in any of top 48K. 
* Any of the top 8K (E000 H AND ABOVE) may 
(AS PROPOSED) be disabled to provide windows to eliminate 
any possible conflicts with your system monitor, 
disk controller, etc. 


ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED ADD $50 EPROM may co-exist on the same board. 
* BOARD may be partially populated as 56K. 


Green Screen - Video Monitors 
25 MHZ. TYPICAL BANDWIDTH!!! 


Brand New In The Box! 9-Inch Screen 
#K-904B1 (Chassis #Y08A) Open Frame Style 


GROUP SPECIAL: 


4 for °99° 


WITH DATA & SCHEMATIC 






$100 EPROM PROGRAMMER 
OUR NEWEST DESIGN, FOR FAST EFFICIENT PROGRAMMING OF THE 
MOST POPULAR EPROM’S ON YOUR S100 MACHINE. COMES WITH 
MENU DRIVEN SOFTWARE THAT RUNS UNDER CP/M 2.2 (8 INCH). PC 
BOARD SET CONSISTS OF (S100) MAIN LOGIC BOARD REMOTE 
PROGRAMMING CARD AND SIX PERSONALITY MINI BOARDS FOR 
2716, 2532, 2732, 2732A, 2764, AND 27128. SOLD AS BARE PC BOARD 
SET .ONLY WITH FULL DOC. SOFTWARE FEATURES “FAST” 
PROGRAMMING ALGORITHM. FOR Z80 BASED SYSTEMS. 


PC BOARD SET, FULL 
DOCUMENTATION, 8 IN. 
DISKETTE WITH SOFTWARE. 


NEW! ‘%69°%° 


128K $100 STATIC RAM/EPROM BOARD 


JUST OUT! USES POPULAR 8K X 8 STATIC RAMS (6264) OR 2764 
EPROMS. FOR 8 OR 16 BIT DATA TRANSFERS! IEEE 696 STANDARD. 
LOW POWER. KITS ARE FULLY SOCKETED. FULL DOC AND 
SCHEMATICS INCLUDED. 24 BIT ADDRESSING. 


NEW! $5995 $94.900 $4 3900 


BARE PC BOARD 128K RAM KIT 128 EPROM KIT 


256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL THIS BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 
FEATURES: 


PRICE CUT! * 256K on board, using + 5V 64K 


* Uses new Intel 8203-1 LSI Memory 

Controller. 

Requires only 4 Dip Switch Selectable 

1/O Ports. 

Runs on 8080 or Z80 $100 machines. 

Up to 8 LS-100 boards can be run 

together for 2 Meg. of On Line Solid 

State Disk Storage. 

Provisions for Battery back-up. 

Software to mate the LS-100 to your 

CP/M* 2.2 DOS is supplied. 

The LS-100 provides an increase in 

speed of up to 7 to 10 times on Disk 

Intensive Software. 

* Compare our price! You could pay 
up to 3 times as much for similar 
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(USA SHIPPING: $3. PER UNIT. CANADA: $7. PER UNIT) 
COMPUTER MANUFACTURER’S EXCESS. STILL IN ORIGINAL 
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sects Tine coc Boeres, PANASONIC BOXES. THE CRT TUBE ALONE WOULD COST MORE 
PROGRAM ON DISKETTE) $7 2900 THAN OUR PRICE FOR THE COMPLETE UNIT. FOR SPLIT VIDEO 
$4995 (ADD $50 FOR A&T) (TTL INPUTS) OPERATION, NOT COMPOSITE VIDEO. OPERATES 
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LINES AT CENTER 650 LINES AT CORNERS. 


ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST 2-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCIIl KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKE A 


COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR ANSI VIDEO TERMINAL BOARD! 


x FR LIN N I * 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER OM GER ENTERPRISES 
SERVICES. as | A second generation, low cost, high performance, mini sized, single board 


FEATURES: for making your own RS232 Video Terminal. Use as a computer console or 


* Uses a Z80A and 6845 CRT with a MODEM for hook up to any of the telephone-line computer services. 
Controller for powerful video 
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* RS232 at 16 BAUD Rates from 75 Jggetdnie new SMC 9028 Video 
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* Optional formats from 24 x 80 * RS-232 at 16 Baud Rates from 50 
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(60 Hz). ; * On board printer port! 
* Higher density formats require up to * 24 X 80 format (50/60 Hz). 
3 additional 2K x 8 6116 RAMS. | * For 15,750 Hz (Horiz.) monitors. 
* Uses N.S. INS 8250 BAUD Rate Gen. ; * 3 Terminal Modes: H-19, ADM3A, 
and USART combo IC. and ANSI X 3.64-1979 
* 3 Terminal Emulation Modes which * Wide and thin-line graphics. 
* White characters on black back- 
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* Character Attributes: De-Inten, 






are Dip Switch selectable. These $ A&T 
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* Any polarity of video or sync. (COMPLETE KIT, | 2K VIDEO RAM) * ee Power: SVDC @ TA, +12VDC : 
* Inverse Video Capability. @ 20MA. 
* Small Size: 6.5 x 9 inches. BLANK PCB WITH 2716 x Mini size: 6.5 X 5 inches. $9995 
* Upper & lower case with descenders. CHAR. ROM. 2732 MON. ROM * Composite or split video. 
* 7 x 9 Character Matrix. $ 95 * 5 X 8 Dot Matrix characters (Full Kit) 
* Requires Par. ASCII keyboard. 49 (U/L case). am SOURCE DISKETTE: 
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Foreign orders (except Canada) add 20% P & H. Orders over $50 add 85¢ 
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LISTING SEVE N (Listing continued) 





int npmax ; /* maximum number of data points allowed x / 
int *method ; /* dfp or bfgs updating method */ 
A 

int ncenst : ;. /* number of constants used in fen nF 

char instring[LEN) ; 

char *restofline ; 

char *firstword ; 

static char funname[] = " m3 


static char xkey [MAXKEY] = 
{ 


"bfgs" 3 /* 0 x / 
“constanus”*,; /* i * / 
"debug™ » /* 2 x / 
"derivsteps" , fx 3 x/ 
Sato" ‘ /* 4 * / 
"end" , /* 5 x / 
"epsilons" , /* 6 xf 
"exmin" , /* 7 x / 
"funname" , /* 8 af 
“tterlim®’ /* 9 */ 
"itermin" , /* 10 xf 
"Limitflags? .~ /* 11 */ 
"lowerlimits" , /* 12 */ 
"newdata" , /* 13 xs 
"next -, /* 14 */ 
“ostare”’ + /* 15 */ 
“reset™.; /* 16 “, 
Megs /* 17 * / 
"upperlimits" /* 18 «/ 


} 3 


/* 
* note above order; keywords are tested below in same order... 
* remember this when adding keywords! 


*/ 
int i, >>, mend , neom., Bad. ; 
#ifdef C80 
int chan ; 
#else 
FILE *chan ; 
FILE *fopen() ; 
char *fgets() ; 
#endif 
ys 
* loop until a "next" or "end" command is picked up 
=f 
nemd = ncom = bad = 0O ; 
for (77) 
{ 
#ifdef C80 
if ( ! getline( instring , LEN ) ) 
return( ALLDONE ) ; 
print fi<¢"ts\n"*,.. instring) 7 
/* 
* C-80 library routine getline returns the line stored into 
* “instring" with the null at the end, but with the '\n' 
* stripped off. 
*/ 
#else 
if (fgets( instring , LEN , stdin ) == NULL) 
return (ALLDONE) ; 
printi "ts", instring) 3 
#endif 


restofline = instring ; 
getnext( &restofline , &firstword ) ; 
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for ( j=0O ; J<MAXKEY ; ++j ) 
if ( ! stremp( firstword , key[j] ) ) 
break ; 


switch (3) 

{ 

*/ 

case 0: 
++ncmd ; 
DEBUGON printf("bfgs update requested\n") ; 
*method = BFGS ; 
break ; 

/* constants 


++ncmd ; 
DEBUGON printf ("%d constants in %s:\n", nconst , 
funname ); 
for (i=0 ; i < nconst ; ++i) 
{ 
getnext( érestofline , &firstword ) ; 
if( check( firstword ) ) 
L, 
++bad; 
break; 
} 
const[i]) = (double) atof( firstword ) ; 
DEBUGON printf("%e ", const[i]); 
} 
DEBUGON LF; 
break ; 
/* debug 


++ncemd ; 

getnext( &restofline , &firstword ) ; 
if. (check ( -firstword- ) ) 

{ 


(continued on next page) 


DE SMET C 


8086/8088 Development Package nt Setalege ae rite” ae 


$1 0) Q _Data General \ Oa d| jo] i|t || 
= = 5; (A HEWLETT 


PACKARD- 


MS-DOS 


FULL DEVELOPMENT PACKAGE SYMBOLIC DEBUGGER $50 
@ Full K&R C Compiler 
e Assembler, Linker & Librarian @ Examine & change variables by name 


@ Full Screen Editor _ using C expressions 
e Execution Profiler @ Flip between debug and display screen 


© Complete STDIO Library (>120 Func) ee he comin Senenp ere PC-MINI-MAINFRAME COMMUNICATIONS SOFTWARE 


‘ @ Set multiple breakpoints by function or line 
Automatic DOS 1.X/2.X SUPPORT number _ ANY COMPUTER WITH BLAST CAN TALK TO ANY 
BOTH 8087 & S/W FLOATING POINT OTHER COMPUTER WITH BLAST, the universal file 
transfer utility linking many different computers, 
in DOS LINK SUPPORT $35 operating systems, and networks, 


OUTSTANDING PERFORMANCE 
@ Converts DeSmet.O to DOS.OBJ Format via RS 232 serial ports. 


@ First and Second in AUG ’83 BYTE  LINKs with DOS ASM NO ADD-ON BOARDS TO BUY! BLAST software 
benchmarks @ Uses Lattice® naming conventions uses any asynchronous modems or direct connect for 
fast, error-free data transfer through noisy lines and 
PBXs, across LANs, and over satellites 


WA R E or packet switched networks. 


CORPORATION THE PERFECT LOW-COST LINK FOR PC’s, MINIS, 
P.O. Box C, Sunnyvale, CA 94087 MAINFRAMES Transfer binary or text files, or 
(408) 720-9696 executable commands. Use BLAST standalone, or 


Street Address: 505 W. Olive, #767 (94086) Call for hrs. built it into your application. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California : 8 as 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on U.S. $250/Micros $495-895/Minis $2495/up Mainframes 


Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER e COMMUNICATIONS RESEARCH GROUP (800)-24-BLAST 
ENGLAND: MLH Tech, 0606-891146 @ JAPAN: JSE 03-486-7151 @ 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 8939 Jefferson Hwy. Baton Rouge, LA 70809 (504)-923-0888 
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METRIC MINIMIZER 
LISTING SEVEN (visting continued) 


++bad; 
break; 


} 


*debug = atoi( firstword ) ; 
DEBUGON printf("debug level is %d\n", *debug) ; 
break ; 
/* derivsteps */ 
case 3: 
++ncemd ; 
DEBUGON printf("derivsteps are:\n"); 
for (1=0 ; i < *nparam ; ++i) 
{ 





getnext( &restofline , &firstword ) ; 
if ( check( firstword ) ) 
{ 
++bad; 
break; 
} 
dstep[i] = (double) atof( firstword ) ; 
DEBUGON printf("%e ", dstep[i]); 
} 
DEBUGON LF; 


break ; 
/* dfp */ 
case 4: 
++ncmd ; 
DEBUGON printf("dfp update requested\n") ; 
*method = DFP ; 
break ; 
/* end * / 
case 5: 
DEBUGON printf("end of all data\n") ; 
return( ALLDONE ) ; 
/* epsilons */ 
case 6: 
++ncmd ; 
DEBUGON printf ("%d epsilons for cutoffs:\n", 
NEPS ); 
for (i=0 ; i < NEPS ; ++i) 
{ 
getnext( &restofline , &firstword ) ; 
if( check( firstword ) ) 
{ 
++bad; 
break; 
} 
epsilon[{i] = (double) atof( firstword ); 
DEBUGON printf("%e ", epsilon[i}); 
} 
DEBUGON LF; 
break ; 
/* exmin * / 
case 7: 
++ncmd ; 
getnext( &restofline , &firstword ) ; 
if ( check( firstword ) ) 
{ 
++bad; 
break; 
} ; 
*g0 = (double) atof( firstword ) ; 
DEBUGON printf ("expected minimum is %11.4e\n", *g0O); 
break ; 
/* funname */ 
case 8: 
++nemd ; 


getnext( &restofline , &firstword ) ; 
if( check( firstword ) ) 
{ 
++bad; 
break; 
} 
strcepy( funname , firstword ) ; 
DEBUGON printf("function to minimize is %s\n", 
funname ) ; 


(continued on page 102) 
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| Now You Know Why 
RIEF is BEST 











‘“BRIEE, The Programmer’s Editor, is simply the best text 
editor you Can buy.’ John Dvorak, INFOWORLD 7/8/85 


The Program 
Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you've 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.”’ 


Solution 
Systems ™ 





Every Feature 


Compare these features 
with your editor (or any 
other for that matter). 
© FAST 
Full UNDO (N Times) 
Edit Multiple Large Files 
Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 
Repeat Keystroke 
sequences 
15 Minute Learning Time 
Windows (Tiled and 
Pop-up) 








You Can Imagine 


Unlimited File Size 
-(even 2 Meg!) 
Reconfigurable Keyboard 
Context Sensitive Help 
Search for ‘‘regular 
expressions’ 

Mnemonic Key 
Assignments 


Horizontal Scrolling 
Comprehensive Error 
Recovery 


A Complete Compiled 
Programmable and 
Readable Macro Language 


EGA and Large Display 
Support 

Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE | 
Try BRIEF ($195) for 30 days —- If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 
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Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


Not COPY PROTECTED r 
ve 


BRIEF is a trademark of UnderWare 


METRIC MINIMIZER 
LISTING SEVEN (isting continued) 


if ( funlib( funname, fun, nparam, &nconst, pname) ) 
{ 
DEBUGON printf("function not in library!\n") ; 





++bad ; 
} 
“break ; 
/* iterlim «/ 
case 9: 
++ncmd ; 
getnext( &restofline , &firstword ) ; 
if( check( firstword )) 
{ 
++bad; 
break; 
} 
*iterlim = atoi( firstword ) ; 
DEBUGON printf("iterlim is %d\n", *iterlim); 
break ; 
/* itermin */ 
case 10: 
++ncomd ; 


getnext( grestofline , &firstword ) ; 
if( check( firstword ) ) 
{ 
++bad; 
break; 
} 
*itermin = atoi( firstword ) ; 
DEBUGON printf("itermin is %d\n", *itermin) ; 


break ; 
/* limitflags */ 
case 11: 
++ncmd ; 


DEBUGON printf("limitflags are:\n") 
for (i=0O ; i < *nparam ; ++i) 
{ 
getnext( &restofline , &firstword ) ; 
if ( check( firstword ) ) 
{ 
++bad; 
break; 
} 
limit({i}).fl = atoi( firstword ) ; 
DEBUGON printf("%d ", limit[i].f1); 
} 
DEBUGON LF; 
break ; 
/* lowerlimits */ 
case 12; 
++ncemd ; 
DEBUGON printf("lowerlimits are:\n") ; 
for (i=O ; i < *nparam ; ++i) 
{ 
getnext( érestofline , &firstword ) ; 
if ( check( firstword ) ) 
{ 
++bad; 
break; 
} 
limit(i].lo = (double) atof( firstword ) ; 
DEBUGON printf("%e ", limit[i].1lo); 
} 
DEBUGON LF; 


break ; 
/* newdata ¥7 
case 13: 
++ncmd ; 


getnext( é&restofline , &firstword ) ; 
DEBUGON printf ("datafile requested was %s\n" , 
firstword ) ; 
if... check{.firstword } -) 
{ 
++bad; 
break; 
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} 


chan = fopen( firstword , "r"); 


if { tchan°) 
{ 


printf ("datafile can't be opened!\n") 
return( ALLDONE ) ; 


} 


fscanf{ chan , "%d" , 


npoints ) ; 


DEBUGON printf ("%d datapoints in file\n", *npoints); 


if (*npoints > npmax) 


{ 


++bad ; 


printf("more data than allowed!\n") ; 
printf("%d datapoints in file\n", *npoints) ; 
printf("%d points allowed for\n", npmax ) ; 


break ; 
} 


for (i=0 ; i<*npoints ; ++i) 


{ 
#ifdef C80 


fscanf (chan, 


#else 


"Sf $f", Edata[i].x, &data[i].y); 


fscanf(chan,"%lf %lf",&data[i].x, &data[i].y); 


#fendif 


DEBUGON printf("%3d %f %f\n" , i+l, 
data[i].x , data({i].y ) ; 


} 
fclose( chan ) ; 
break ; 
*/ 
case 14: 
++ncmd ; 


PC/VI 


Full Screen Editor for MS-DOS (PC-DOS) 


Looking for an Ultra-Powerful Full-Screen editor for 
your MS-DOS or PC-DOS system? Are you looking for an 
editor FULLY COMPATIBLE with the UNIX* VI editor. 
Are you looking for an editor which not only runs on 
IBM-PC’s and compatibles, but ANY MS-DOS system? Are 
you looking for an editor which provides power and flexi- 
bility for both programming and text editing? If you are, 
then look no further because PC/VI IS HERE! 


The following is only ahint of the power behind PC/VI: 
English-like syntax is command mode, mnemonic control 
sequences in visual mode; full undo capability; deletions, 
changes and cursor positioning on character, word, line, 


sentence, paragraph or global basis; editing of files larger 
than available memory; powerful pattern matching capa- 
bility for searches and substitutions; location marking; 
joining multiple lines; auto-indentation; word abbreviations 
and MUCH, MUCH MORE! 


The PC/VI editor is available for IBM-PC’s and generic 
MS-DOS based systems for only $149. For more infor- 
mation call or write: 


Custom Software Systems 
P.O. Box 551 MO 
Shrewsbury, MA 01545 
617-842-1712 
The UNIX community has been using the VI editor for 
years. Now you can run an implementation of the same 


editor under MS-DOS. Don’t miss out on the power of 
PC/VI! 


*UNIX is a trademark of AT&T Bell Laboratories. 
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FORTRAN PROGRAMMERS 


Downloading from mainframes or developing 
on the PC the choice is F77L. 


‘‘Lahey’s F77L FORTRAN is the compiler of choice. . . 
F77L compiled the five files in a total of 12 minutes which 
was 4 times as fast as MS FORTRAN and an astounding 
6 times as fast as Pro FORTRAN.”’ PC Magazine 


‘‘The manual that comes with this compiler is well put 
together. The messages are clearly explained, the com- 
piler’s unique features are well documented... All in 
all, F77L is a fine, well supported product that we think 
will do very well in the marketplace. ”’ 

Computer Language 


VERSION 2.0 NOW AVAILABLE — $477 












Full ANSI FORTRAN-77 
Source On-Line Debugger 
Common/Array greater than 64K 
Lattice C and other 3rd Party Compatibility 


To order or for more information 


(213) 541-1200 
Lahey Computer Systems, Inc. 
31244 Palos Verdes Drive West, Suite #243 
Rancho Palos Verdes, CA 90274 


Requires MS-DOS and 8087 


MS-DOS and MS FORTRAN are trademarks of Microsoft Corporation 
Pro FORTRAN is a trademark of International Business Machines 
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METRIC MINIMIZER 
LISTING SEVEN (wisting continued) 





DEBUGON printf ("end of this data set\n"); 
printf("%2d command lines read\n", necmd) ; 
printf ("%2d comment lines read\n", ncom) ; 


if( ! *nparam ) 
++bad ; 


return( bad ) ; 





/* pstart */ 
case 15: 
++ncemd ; 
DEBUGON printf ("starting values are:\n" ) ; 
for (i=0 ; i < *nparam ; ++i) 
{ 
getnext( &restofline , &firstword ) ; 
if ( check( firstword ) ) 
{ 
++bad; 
break; 
} 
param(i] = (double) atof( firstword ) ; 
DEBUGON printf("%e ", param[i]); 
} 
DEBUGON LF; 
break ; 
/* reset */ 
case 16: 
++ncomd ; 
getnext( &restofline , &firstword ) ; 
if( check( firstword ) ) 
{ 
++bad; 
break; 
} 
*nreset = atoi( firstword ) ; 
DEBUGON printf("reset is d\n", *nreset); 
break ; 
¥*. Sa ~/ 
case 17; 
++nemd ; 


DEBUGON printf ("steepest descent update requested\n") ; 
*method = STDES ; 


break ; 
/* upperlimits */ 
case 18; 
++ncmd ; 


DEBUGON printf("upperlimits are:\n"); 
for (i=0 ; i < *nparam ; ++i) 


A rs 
; getnext( &restofline , &firstword ) ; 


if ( check( firstword ) ) 
{ 

++bad; 

break; 


} 
limit[i].up = (double) atof( firstword ) ; 


DEBUGON printf("te ", limit[i].up); 
} 
DEBUGON LF; 
break ; 


/* 
* anything else is a comment; throw away and go 
* to next line. 


*/ 
default: 
++ncom ; 


DEBUGON printf ("***%s*** taken as commenc\n", 
firstword ) ; 


} 


[RRR EKEE KEKE EKER EKREERER ER EREKREKREKEE RE KKEKEKE KEK R EERE EEE KR IK KR KK / 


(continued on page 106) 
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will help you: 


Tools. 





First Aid for 
C Programs 
C ToolSet 


Save time and frustration when 
analyzing and manipulating C 
programs. 

DIFF and CMP-for “intelligent” 
file comparisons. 

XREF - cross references vari- 
ables by function and line. 

C Flow chart - shows what 
functions call each other. 

C Beautifier - make source more 
readable. 

GREP - search for patterns. 

PP - formats your code so that 
it is easier to read and under- 
stand. 

C Util - acts as a general pur- 
pose file filter. 

There are several other pro- 
grams for converting and printing 
programs. 

Portable. Full source code. 

CPM, MSDOS $135 


C Programmers: 


* Speed your development efforts 

* Write even better programs 
All you have to do is consider one of these eight products for C programmers (or the 97 other C compilers, 
interpreters, support libraries, debuggers, or addons we offer). Then call one of our knowledgeable consultants 
- toll free - for details, comparisons, or for our specially prepared packets on C, C Libraries, or C Productivity 


Yours for more productive programming, 


Even for Small Files: 
Convenient, 
Fast Access 


CBTREE — Only $99 

Why spend time writing file 
management code when you 
can use _ consistent, flexible, 
documented, professional func- 
tion? Even rralthuser record lock- 
ing and variable-length records 
are supported. 

Full balanced Btree support 
includes use of multiple keys, un- 
limited number and length of 


eys. 

Use this powerful ISAM, even 
if you’ve previously done with- 
out. 

Learn how to write systems for 
managing large files by using 
CBTree source as a guide. Modify 
it and transfer it to another 
operating environment without 
royalties. 


Get File Access with 
TIGHTER Control 
db_VISTA Data Management 


Full source, no royalties and “normal” indexed file management 
are part of db_VISTA. Get more for the price of only an ISAM. 
Ou can minimize data stored and access records even faster and 
more logically aus indexes. Example: address and trans- 
l 


action data shou 


not require redundant ee of customer 
S point to other 


names or numbers. Use pointers. Related data fiel 
related groups - the “network model” of data. 
Use db_VISTA as a “normal ISAM” or save programming time, ac- 
cess time and file size. Lattice, C86, Williams, Desmet, Microsoft C. 
MSDOS Multiuser source $995, Object $495 


Single user source $450, Object $169 


Unix, Xenix, & MacIntosh versions also available. Call for details. 


Shorten Development 
Time, Cut Frustrations 
BRIEF, The Programmer's Editor 


Compile within BRIEF; use autoindent; “templates”, C specific 
error eure. ... use windows, UNDO, and multiple large files. 


But edit YOUR WAY. 


Every feature you’d expect and more are integrated elegantly - 


and it can be modified by you. 


You deserve: 


“.,. the best text editor you can buy.” - John Dvorak, InfoWorld, 


7/8/85 


“ .. the best code editor...” David Irwin, Data Based Advisor, 


If you call for our advice, you must be completely satisfied with the 
product you purchase from The Programmer’s Shop. If not, you will 
receive a refund or replacement. 


catalog. 


8/85 
PCDOS $Call 
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all now for details or our new 


* Increase productivity 


Here are 8 ways You can be more productive 


Dear Microcomputer Programmer, 
Let me tell you how you can find and choose the best development software for your needs — software that 


* Reduce your programming frustration 


There is no obligation. You risk nothing with our moneyback guarantee of satisfaction. 


SORT/MERGE Files 
for Clean, Fast 
Maintenance 
with OPT-TECH SORT 


Performance should not suffer 
with DOS or other “free” sorts. 
ISAMs alone are slow when 10% 
or even less is changed/added. 
OPT-TECH includes: 

- CALLable and Standalone use 

-C, ASM, BAS, PAS, FTN, 
COBOL 

- Variable and fixed length 

-1to 9 fields to sort/merge 

- Autoselect of RAM or ok 

- Options: dBASE, BTrieve files 

-1to10 files input 

- No software max for # Records 

- Allcommon field types 

- By a headers, limit sort 

- Inplace sort option 

- Output = Record or keys 


— Bruce W. Lynch, President 


Add Communications 
Features to 
Your Programs 
Greenleaf Comm Library 


Greenleaf now enables you to 
communicate with remote sys- 
tems or databases with an asyn- 
chronous communications library 
forC. 

Individual transmission and re- 
ception ring buffers combine with 
an interrupt driven system. This 
eliminates the extra function of 
separately calling up the com- 
munications program. 

Included are 1 library/object 
files, 100 functions; 100 page 
manual, complete source code Je 
brary tailor-made to suit compiler 
and memory. Hayes-compatible 
modem commands, and a com- 
plete sample file transfer pro- 


in what you’re using on an XT: gram. MSDOS $149 
1,000 128 byte records, 10 byte 
key in 33 seconds. MSDOS $85 

Make REAL TIME 


Programming Practical 
Csharp Realtime Toolkit 


_ Data acquisition, process control, robotics and devices monitor- 
eee become practical with Csharp! 
ull source code helps tailor programs to various boards and 


applications. 


eentrant, interrupt handling routines help schedule and react. 
Fast graphics routines help visualize what is happening. 
Control multiple ports reliably, schedule tasks based on events, 
manage priorities — all with modular, tested, and reliable routines. 
Assess and manage the state of hardware at the object level. Let 


Csharp handle the details. 


Portable C source supports RT11 UNIX and MSDOS $600 


Fast File Access with Source 
Variable Length Fields Save Space 
CIndex ISAM Product Line 


C-Index contains a high performance ISAM, balanced B + Tree in- 
dexing system and variable length fields. The result is acomplete data 
storage system to eliminate tedious programming and add efficient 


performance to your programs. 


Features include random and sequential data access, virtual 
memory buffering, and multiple key indexes. 

With no royalties for programs you distribute, full source code, and 
variable length fields C-Index/Plus fits what you are likely to need. 

Save time and enhance your programs with C-Index/Plus. 
MSDOS $349. With C-Index/File for $89, or/Pro for $179. 


THE PROGRAMMERS SHOP 


128 Rockland Street 
Hanover, Massachusetts 02339 


800-421-8006 
In Mass. 800-442-8070 


617-826-7531 


METRIC MINIMIZER 


LISTING SEVEN (Listing continued) 


getnext( string , next ) 





char **string ; 
char **HERC: 7 
{ 
/* 
* splits the input string "string" into two pieces: 
"next" contains the first word with no leading or trailing blanks 
* "string" then contains the rest of the line 
#7 
int length ; 


char *p ; 


length = strlen( p = *string ) ; 
while( length-- > 0 && isspace( *p++) ) 


“next = -=—p ; 


while( length-- >= 0 && !isspace( *++p ) ) 


’ 


*p = "\0! ; 
*string = ++p ; 


} 


3 III IOI III IOI ISIC IOI TOI III KK IKK AIK / 


check( string ) 
char *string ; 
{ 
/* 
* checks if a string starts with a blank 
if the string was obtained with getnext, this means the string 
is blank unconditionally report this error 


* % 


“ye 


1& ¢ ! *string.) 


{ 
printf ("Unexpected blank encountered!\n") 
return( 1 ) 3 


else 
retirnr(:'O.) 


End Listing Seven 


LISTING EIGHT 


Test input for the VMM program 

File name is “al.dat" 

Sample input using the Cohen function 

Demonstrates using the limit flags and detail debug printout 

funname cohen 

pstart Ls 

limitflags 1 

lowerlimits 0 

upperlimits 2 
1 
2 


1.0 
4 
0,1 
3.9 
iterlim 
debug 
next 
This case tests a function which uses "experimental" data 
Note the non-default epsilons for this case 


funname sine 

pstart Laat = 565 .90.08 =0 005 
epsilons 1.0e-141.0e-6 

newdata b:sine.dat 

iterlim 12 

reset a. 

debug 1 

next 


The following cases use the Rosenbrock function 

These correspond to the benchmarks... 

Case l 

funname rosen 

pstart <1Lid: 9.0) See ee ee DRS IO Kee 6D 
constants. 100. -100.-.100.-. 100. . 100. 
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sd 

next 

Case 2 
funnamerosen 
pstart: -12.2°1.0 
constaats --10..- -10. 
sd 

next 

Case 3 

funname rosen 
Pater Hi.2 1 8 he OO. 2d 
eoneatants: itu 2... Eee 2 Te OS. 

sd 

next 

Case 4 

funname rosen 

pstart  i.2 
constants 
sd 

next 

Case 5 
funname rosen 
pstart 
constants. 10. .10.-.; 10s. .10. -.48; 
sd 

next 

Case 6 

funnamerosen 

pstart 
ennsepnecs . 24°* Le bs . Yeo ds 
sd 

next 

Case 7 

funname rosen 
petart:..“i.z 1,0 
constants 100. 
dfp 

reset 5 

next 

Case 8 

funname rosen 
pstart: '‘<i.zZ 1.0 
constants 10. 10. 
dfp 

reset 5 

next 

Case 9 

funname rosen 
petare- =ise (1.0 “—d.2-. -1,9.. -i.2 
CONSTONGCS hs... bs. Bs +. Be Te 

dfp 

reset 5 

next 

Case 10 

funname rosen 

pstart 1.2 
constants 
dfp 

reset 5 
next 

Case 1l 
funnamerosen 
pstart 
constants. .10....101°°19.- 426:.. 20. 
dfp 

reset 5 

next 

Case 12 

funname rosen 

pstart 
Consrancs.~ Ts Le ~te “deeds 
dfp 

reset 5 

next 

Case 13 

funname rosen 

petart <1.2 
constants 
bfgs 

reset 5 
next 


el 2 
10. 


1.0 
10. 


-1 g2 
“10, 


0.8 
«100%. 


0.8 
100. 


1.2 


100. 100. 


“1.2 
100. 


1.0 
100. 


=i 2 
100. 


“1.2 
10. 


1.0 
10. 


“Lot 
10. 


0.8 
100. 


0.8 
100. 


1.2 


100. 100. 


i<8 
100. 


=lLwe 
100. 


1.0 
100. 


rage 
100. 
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diet O. 


Ree OR8 Lak | Bs 8 -ode2-o 8. 


Pee. O58. 2.42 >-G, 8 b,2.. 0. 


dione Os 


dee- 0.8, 1,.2...O8 2.2. G. 


Le 0.8. 3,2 0.4. 422. 2 


150 


B. ss 


100. 


1.0 


8 il. 


100. 


100. 


“52... dee. See £50 


e162 22.8 -iek 149 


(continued on next page) 





Instant-C: 
The Fastest 
Interpreter for C 


Runs your programs 50 
to 500 times faster than 
any other C language 
interpreter. 


ny C interpreter can save you compile 
and link time when developing your 
programs. But only Instant-C saves 
your time by running your program at 
compiled-code speed. 


Fastest Development. A program 
that runs in one second when compiled 
with an optimizing compiler runs in 
two or three seconds with Instant-C. 
Other interpreters will run the same 
program in two minutes. Or even ten 
minutes. Don’t trade slow compiling 
and linking for slow testing and debug- 
ging. Only Instant-C will let you edit, 
test, and debug at the fastest possible 
speeds. 


Fastest Testing. Instant-C immedi- 
ately executes any C expression, state- 
ment, or function call, and display the 
results. Learn C, or test your programs 
faster than ever before. 


Fastest Debugging. Instant-C gives 
you the best source-level debugger for 
C. Single-step by source statement, or 
set any number of conditional break- 
points throughout your program. Errors 
always show the source statements 
involved. Once you find the problem, 
test the correction in seconds. 


Fastest Programming. Instant-C 
can directly generate executable files, 
supports full K & R standard C, comes 
with complete library source, and works 
under PC-DOS, MS-DOS, or CP/M-86. 
Instant-C gives you working, well- 
lested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 

31 days. Instant-C is $495. 


Rational 


Systems, Inc. 
P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 
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METRIC MINIMIZER 
LISTING EIGHT (visting continued) 


Case 14 

funname rosen 

pstart -1.2 1.0. ded 200 =1,2°''1.0"° -2.2 32.0 <1,2 1376 
constants 10. 10... 105, 18. . 10. 

bfgs 

reset 5 

next 

Case 15 

funnamerosen 

PStLOre -1.2: be Or wm 2ed Haw ~“Led 14.0. =2.2 1.0: -=152. 2,0 
constants 1. is de de * da 

bfgs 

reset 5 

next 

Case 16 

funname rosen 

petart. 1.2 0:8 Te *Oe8 1.2 O18  Ti2 .0,8- F228 
éonstants' .100. 200,100... 100. 200. 

bfgs 

reset 5 

next 

Case 17 

funname rosen 

PStStG tet O<.8 152; 028 1:42. G8 Ded O.8 .4242::20,8 
Gonstants 10. 20. “20... 410. -18, 

bfgs 

reset 5 

next 

Case 18 

funname rosen 
pstart -1,2 0.8 1. 
Gunstants «1. hs Be - Fe Be 





bfgs 
reset 5 
next 
end 
ame rosen 


pstart i.Z2 0.8 .ts2 0.8: -iL.2. 0.8 1.2 0.8 1,2 O-8 
eonstcants ad.« is: de dw «ds 
bfgs 


reset End Listing Eight 


LISTING NINE; 


/* Listing 9 


* The way it is done in vmm | 
* This works and will be portable 
* so long as addresses are the 
* same size as ints. 
* Fine on 16 bit systems with "small 
* model" e.g. 64K programs 
*/ 
#define double float 
#include “forint t wh" 
#include "“scanf.h" 
/* ae ee ee ee ee ee ee */ 
main () 


{ 
double *(*fun) () ; 
double a,b; 


while(1) { 


readit( &fun , &a, &b) ; 
G@oit(, fun., a; &B); 


readit. (- fun 7.2, Bb 4 


int 
double 
double 
{ 

char 


*fun 3 
*a ? 


*bH FY 


string[10] ; 
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scant (“48148 Sf"; string 7 3a 7°). 


furllibt fun ; ‘string: )-:; 


Phe igs DE Fem ek ies ee area ree */ 
funlibt tua... string.) 
int *fun 7 


char seringt) «; 
{ 

double sum({) ; 
double mul() ; 


if ( !stremp( string, “add" ) ) *fun = sum ; 
else if ( !strcemp( string, "mul" ) ) *fun = mul ; 
else exit (0); 


ag.c(Cfun., a, b-.) . 
double (*fun) () ; 
double a; 
double b ; 
{ 
double g ; 
g (*fun)( a, &) ; 
printf("%tf is the result\n" , gq) ; 


double sum( a, b ) 
double a; 
double b ; 


printf("sf + $f = &$f\n" , a,b, atb) ; 
return( a+b} ; 


double mul( a, b ) 
double a; 
double b ; 
{ 
printf ("sf * $f 
return( a * b) ; 


Sf\n" , a» By-a*b ) 3 


End Listing Nine 


LISTING TEN 


/* Listing 10 
* The correct and most portable way to pass an object which is a 
* pointer to a function 


*/ 
#include <stdio.h> 
SF i an games A siti ti oc x / 
main () ‘ 
{ 
double (*fun)() ; /* fun is a pointer to a function 
* which returns a double 
*/ 
double (*readit()) () /* readit is a function that 
* returns a pointer to a function 
* that returns a double 
*/ 
double a,b; 
while(1) { 
fun = readit( &a, &b) ; 
doit( fun, a, b)- 3: 
} 
} 
/* See ewww mee em ewe we we we wow mew eee */ 
double (*readit( a,b ))() /* note position of arguments */ 


double *a ; 
double *b ; 
{ 
double (*fun) () ; 4 
double (*funlib())() ; /* funlib is a function which 
returns a pointer to a function 
which returns a double 
*/ 
(continued on next page) 
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Top 
Quality 
Programming 
Tools 
from the 
Developers 
of the 
TurboPower 


Utilities 


Turbo : 
EXTENDER 


Tired of fighting 64K Code and Data Segments? 
Bored while waiting for your 10,000 liner to Compile? 
Want to optimize those sluggish Overlays? 


LARGE CODE MODELf 











Write Turbo Pascal programs using all 640K of 


MSDOS memory, based on any number of separately 
compiled modules. Provides complete parameter 
Passing using normal Pascal syntax. Heap and Data 
Segment are shared between all modules. No 
memory-resident kludges or unnatural parameter 
passing schemes. Comes with a utility which 
automatically converts your existing applications. 








Transparently access 1 and 2 dimensional arrays of 
any conceivable size and type. Four models support 
Normal RAM to 640K, Expanded memory (EMS) to 
2Meg, Virtual (Disk-based) to 30Meg, and sparse 
arrays like the most advanced spreadsheets. Comes 
with a fast full-screen array browser. 


MAKE FACILITY }} 










A Unix-like MAKE program that is optimized for 
the Turbo EXTENDER large code model. Rebuild 
multi-module programs with no wasted effort. 


OVERLAY ANALYST } 


Perform Static and Dynamic analysis of overlayed 
Turbo programs. Determine sizes of all procedures 
in each overlay group. Monitor the running program 
to find the number of overlay reads, procedure calls, 
and the load address of all procedures. 


AND EVEN MORE! fp 


DISK CACHE can be incorporated in your program to 
speed up disk reads for data bases, overlays, et al. 
Multi-file full screen BROWSE works on any text file. 
Pascal ENCRYPTOR makes your source safe from 
prying eyes, improves compile speed 15-30% and 
leaves the code 100% functional. SHELL generator 
creates fast compiling shells of unexercised code. 





Two DSDD disks with complete Source Code, 
100 page printed manual, 30 day guarantee! 
Requires Turbo Pascal 3.0 

and DOS 2.X or 3.X. Runs on 
IBM PC/XT/AT and compatibles. | 
Call for generic MSDOS support. \ 


oon - — 


~, 


Se ee oe ee 


Also get the TurboPower Utilities 
with the acclaimed Pascal Structure Analyzer 
Includes a Pretty Printer, Execution Profiler, and 
powerful Text and Command Automation Tools. 
With full source $95, executable only $55. 





Credit Card Orders only call Toll-free 7 days per week 
(US)800-538-8157x830 (CA)800-672-3470x830 
PO, COD, Dealers, Questions, Brochures, call or write: 


“=n pamem ae 478 W. Hamilton #196 
u =e Campbell, CA 95008 
ph. 408-378-3672 

Gur Y— M-F 9AM-5PM PST 





Circle no. 207 on reader service card. 
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METRIC MINIMIZER _ co 


LISTING TEN (Listing continued) 


char string {i0}:2 
scanft-("te Sif. SL2",.. String ....a-,; Bb y.‘3 


fun = funlib( string ) ; 
return (fun: :) 4 


double (*funlib( string ))() /* note position of arguments */ 
char string[]. ; 
{ 

double (*fun) () ; 

double sum() ; 

double mul() ; 


Af ( lstromp{. string,..“add™:) ) 
fun = sum ; 

e1sé if (¢( !stremp{ <string,: “mul™" )) 
fun = mul ; 

else 
exit (0); 


return( fun ) ; 


doit(, fun a5) b) 
double (*fun) () ; 
double a ; 
double’ b ; 
{ 
double g ; 
g = (*fun)( a,b)? 
printf("%f is the result\n" , 9) ; 


double sum( a, b ) 
double a; 
double b ; 


printf("sf + %f =°sf\n" , a, b, atb ) 3 
return( a+b) ; 


double mul( a, b ) 

double a ; 

double b ; 

{ 
printf("sf * %£ = tf\n" , a,b, a*b) ; 
return (4a. *-bD:3. 9 


End Listings 
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Z80 CP/M USERS TAKE HEART! 
HERE'S ALL YOU NEED TO WRITE 
YOUR OWN PROGRAMS FOR ONLY: 


$25.00! 







oo 











By David E. Cortesi 


Do you use CP/M? Do you feel as if the only part of 
the computer industry that has not abandoned you 
is your own Z80 computer? It keeps on working, but 
when you need programs for it, you have to write 


them yourself. When you do, you quickly find that 
while Pascal or Basic is okay for some things, there is 
often no substitute for the speed, small size, and 
flexibility of an assembly language program. 





DR. DOBB’S Z80 TOOLBOOK puis the power of 
assembly language in the hands of anyone who's 
done alittle programming. You'll find: 


- A method of designing programs and coding 
them in assembly language—and—a demon- 
stration of the method in the construction of sev- 
eral complete, useful programs. 


- A complete, integrated toolkit of subroutines 
for arithmetic, for string-handling, and for total 
control of the CP/M file system. They bring the ease 
and power of a compiler’s runtime library to your 
assembly language work, without a compiler’s size 
and sluggish code. 


Best of all, every line of the toolkit’s source code is 
there for you to read, and every module's operation 


To order, return this form with your payment, plus $1.75 for 
shipping in the U.S., $3.75 outside the U.S., to: Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, CA 94063 


For faster service on credit card orders, CALL TOLL-FREE 
1-800-528-6050 Ext. 4001. Ask for item #022 for the Z80 
Toolbook and item #022A for the Z80 Toolbook with the 
disks. Please specify one of the formats offered below 


Send me ____copies of DR. DOBB’S Z80 TOOLBOOK: 


$25 ea 
sets of DR. DOBB’S Z8O0 TOOLBOOK 
along with the software on disk 
for S40 per set: 





S40 ea 
Subtotal 
% 





(CA residents add applicable 


sales tax.) éhippiha 





| 
| 
| 
| 
| 
| 
| 
| 
| 
: Send me 
| 
| 
| 
| 
| 
| 
| 


is explained with the clarity and good humor for 
which Dave Cortesi’s writing is known. 


Order the Z80 Software on Disk! 
Save Yourself the Frustration of File Entry 


All the software in DR. DOBB’S Z80 TOOLBOOK— 
the programs plus the entire toolkit, both as source 
code and as object modules for both CP/M 2.2 and 
CP/M Plus—is yours on disk. (A Z80 microprocessor 
and the Digital Research RMAC assembler or 
equivalent are required.) 


keceive DR. DOBB’S Z80 TOOLBOOK, along with 
the software on disk, together for only $40. 


—$—$—_—_—_—_—_—_—_—=_————— cm cr ms ss ees eee ee Ce 


For the 2-80 software on disk, please specify one of the following 
formats: 














| 

| 

| 

8” SS/SD Osborne | 
___ Apple Kaypro | 
| 

Check enclosed Charge my Amer. Exp. | 
VISA M/C | 

| 

CARD # EXP. DATE | 
SIGNATURE | 
NAME | 
ADDRESS | 
OEY co becipsng ical Ee lac deh ns FE weet a EN | 
| 

PROMPT DELIVERY! 3] 14c | 
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LISTING ONE (Text begins on page 116.) 


SQRT ; Returns square root of DO in DO. 
; Uses algorithm from April 85 EDN 
MOVEM.L D1-D2,-(A7) 
MOVE.L #40000000H,D2 ; set largest guess 
BRA.S START ; enter sizing loop 
SIZE LSR.L 2,D2 ; divide guess by 4 
START CMP .L D2,D0 
BCS SIZE ; branch if guess is greater 
MOVE.L D2,Di 7; else set root to guess 
SUB.L D2,D0 7; subtract guess 
LSR.L 2,D2 3; divide guess by 4 
LOOP ; then do normal square root 
SUB.L D1,D0 7 Subtract current root value 
SUB.L D2,D0 7; and guess 
BMI.S NEG ; jump if < 0 
LSR.L gos ; divide root by 2 
ADD.L D2,D1 7 add guess to root 
BRA.S NEXT 
NEG ; if negative then guess 
; is too large 
ADD.L D2,D0 ; add guess back in 
ADD.L D1, D0 
LSR.L LpuL 7 Givide root by 2 
NEXT LSR.L 2,D2 ; divide guess by 4 
BNE LOOP 7 done when = 0 
MOVE.L D1, D0 7 get root 
MOVEM.L (A7) +,D1-D2 3; restore registers 
RTS 7 and end 


LISTING TWO 


DIV32 
3; greater than 65535. 

MOVEM.L D2-D3,-(A7) ; 
MOVEQ 0,D2 ; 
SWAP D1 
MOVE D1,D2 : 
CLR.W D1 ; 
MOVEQ L5,D3 ; 

LOOP : 
ADD.L D1,D1 $ 
ADDX.L D2,D2 ; 
CMP .L DO,D2 ; 
BCC.S COUNT ; 
SUB.L DO, D2 : 
SUB.L DO,D2 
ADDQ i,Di ; 

COUNT ; 
DBRA D3, LOOP ; 
MOVE. L D2, D0 : 
MOVEM.L (A7) +,D2-D3 ; 
RTS : 


LISTING THREE 


End Listing One 


Divides 32-bit number in Dl by 32-bit number in DO. 
Both numbers must be positive, and DO must be 


Returns 32-bit quotient in Dl, remainder in DO. 


Save scratch registers 
clear remainder register 


hi dividend to D2 

clear quotient register 

Dl low half is quotient, hi half 
is low part of dividend 

set counter 

divide loop 

shift quotient and shift next 
bit of dividend to Carry 
shift remainder 

remainder < divisor? 

jump if so, else subtract 
divisor from remainder 


and set bit in quotient 
decrement counter 

and loop 

remainder to DO 

restore registers 

and end 


End Listing Two 


: variation 1, handles arguments 0-255 


byte to dec proc near 


add di;2 
std 

aam 

or iy 
stosb 

mov al,ah 
aam 

or ax, '00' 
stosb 

mov al,ah 
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AL = value to convert 
DI = addr for string 
spoint to low digit 

zset for high to low store 
;convert low order digit 

7make it ASCII 

zand store low digit 

zload high part 

zconvert high and middle digit 
;make them ASCII 

;store middle digit 


zcall with 


stosb ;store high digit 
cld ;restore direction flag 
ret zback to caller 


byte to dec endp 


. 
f 
. 
s 
= 
f 


byte to dec proc near 


variation 2, handles arguments 0-99 


value to convert 


7call with AL = 
= addr for string 


: DI = 


aam ;convert to two digits 
or ax, '00' ;make them ASCII 

xchg ah,al 

stosb zstore middle digit 
mov al,ah 

stosb zstore high digit 

ret zback to caller 


byte to dec endp 


End Listing Three 


LISTING FOUR 


/* 


=: 


TAIL.C A utility to dump the last <n> lines of a file 
to the Standard Output device (which may 
be redirected to a file or printer). 


Usage is: C>TAIL [ -n ] unit:path\filename.ext 


Default value for n is 5. 


Version 1.0 Nov. 19, 1985 
Copyright (C) 1985 Norman McIntosh 
May be freely reproduced for non-commercial use. 


To compile with Microsoft C: 
C>MSC TAIL; 
C>LINK TAIL; 


#include <stdio.h> 
#include <fcntl.h> 


#define REC SIZE 12% 


/* size of input file records */ 


main( arge, argv ) 


int °~ arge: 
char *argv[]; 
{ nc handle, /* handle for input file */ 
lines, /* Number of lines from end 
to print. */ 
bytes read; 
long file ptr, /* file byte offset, current rec */ 
backup (), /* Function to backup the 
specified number of 
records. */ 
lseek(); 
char file buf[ REC _SIZE+1 ]; /* data block from file */ 


/* Abort if no filename supplied, or more than 2 parameters. */ 


20 Mt BLE <2 ff -aEegQe > 73.) 

{ fprintf( stderr, "\nUsage : 
return 1; 

} 


tail [-n] <file name>\n" ); 


lines = 5; /* Set default number of 


lines. */ 
argvt+; /* Past program name. */ 
if ( **argv == '-' ) /* Check for lines option. */ 
{ lines = atoi( *argv + 1 ); 
argvt+t+; 


} 

/* Open specified file in raw mode, abort if open fails */ 

if ( ( handle = open( *argv, O BINARY | O RDWR ) ) == -1 ) 

{ fprintf( stderr, "\ntail: can't find file: %s \n", *argv ); 
return 1; 

} 

/* Print filename and number of lines to print. */ 


printf( "\nTail of file: %s for td lines", *argv, lines ); 
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/* 


=} 


/* Set starting offset into the file. */ 
file ptr = backup( handle, lines ); 
/* Seek to the specified position. */ 


if ( lseek( handle, file ptr, 0 ) == -1L ) 
{ fprintf(stderr,"\ntail: can't seek to end: %s \n",*argv); 
return 1; 


} 
/* Read and print until the end of file. */ 


while((bytes read=read( handle, file buf, REC_SIZE )) >0) 
{ /* Force a null on the end of the string. */ 

file buf[ bytes read ] = '\0'; 

printf( "ts", file buf ); 


close({ handle ); 
return 0; 


/* close the input file */ 
/* return success code */ 


Backup the specified number of records or until the 
beginning of the file. Return the offset (a long) 
into the file of where that record begins. 


static long backup( handle, recs ) 


int 


{ 


handle, /* Handle to the input file. */ 
recs; /* Number of records to backup. */ 
long file ptr, /* Pointer to current record. */ 
rslt, /* Return from seek. */ 
lseek(); 
char file buf[REC_SIZE], /* data block from file */ 
*p; /* Pointer into file buf. */ 
int n; /* Counter. */ - 


/* Seek to the end of the file. */ 


file ptr = lseek( handle, OL, 2 ); 

if ( file ptr = -1L ) 

{ fprintf( stderr, "\ntail: can't seek to file end\n" ); 
exit( 1 ); 

} 


/* Loop until we have found the specified 
number of records. */ 


while( 1 ) 

{ 
/* If file ptr < REC_SIZE then only backup to 0, 
otherwise back up a full REC_SIZE. */ 


if ( file ptr > (long)REC_SIZE ) 
n = REC SIZE; 

else 
n= (int)file ptr; 


file ptr -= (long)n:; /* Decrement position in file */ 


/* Seek to the desired position. */ 


rslit = lseek( handle, file ptr, 0 ); 

if ( rslt — -1L ) 

{ fprintf( stderr, "\ntail: can't seek to file end\n" ); 
exit ( 1-); 

} 


/* Read the record. */ 


if ( read( handle, file buf, n ) >= 0 ) 
{ /* Set pointer to end of buffer. */ 
p = file buf; 
p += n; 


/* While we still have characters in the buffer, 
look for a return. If found decrement the number 
records. If the number of records is less than 
zero then exit. */ 


while( n-- ) 
{ 1f ( *(p--) = ‘\n' ) 
if ( --recs < 0 ) 
break; 


/* If we have found the number of records that we 
desire or we are at the beginning of the file then 
increment file ptr by the number of characters left 
in the buffer. */ 


if ( recs < 0 || file _ptr == OL ) 
{ file ptr t= n +1; 
break; 
} 
} 


return file ptr; /* offset in the file */ 


End Listings 
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COLUMNS 


VDISK Bites Back 
I recently had another painful les- 
son concerning how much faith to 
put in IBM documentation. My own 
company’s product PC/FORTH, a 
Forth-83 Standard interpreter/com- 
piler for IBM PCs, PC/ATs, and compa- 
tibles, is unlike traditional Forth sys- 
tems in that it runs as a task under DOS 
and is carefully integrated into the 
DOS environment. My coworkers and 
I spend a lot of time poring over the 
IBM technical manuals to ensure that 
we maintain compatibility across all 
current and future IBM models and to 
wring the maximum performance 
out of the video hardware. 

In the latest version of PC/FORTH, 
the video and graphics routines had 
grown so extensive that we decided 
to factor them out into a separate res- 
ident system driver that would com- 
municate with PC/FORTH through a 
software interrupt. Because all the 
IBM technical manuals stated that in- 
terrupts OFOH through OFFH were not 
used, we picked interrupt OFFH for 
our PC/FORTH message passing and 
went on to other problems. 

After somewhat more than a thou- 
sand copies of this version were in use 
in the field, we began to get some 
strange reports of horrible crashes 
when PC/FORTH was used on a PC/AT 
with IBM’s VDISK installable RAM disk 
driver. This problem was completely 
perplexing to us, because PC/FORTH 
does all of its file-and-record I/O 
through normal DOS calls, and one log- 
ical disk unit looks just like another. 

The idea of trying to find the prob- 
lem in VDISK was intimidating. VDISK 
is a large chunk of code that is even 
more obscure than is usual for IBM, 
and it makes several calls on PC/AT 
ROM BIOS routines that are both con- 


by Ray Duncan 


voluted and fragmented. 

When an application program 
running under PC DOS in the 80286’s 
Real Mode accesses a file on the VDISK 
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RAM disk, the request filters down 
through the DOS kernel in the usual 
way. It is translated into logical sec- 
tor addresses by inspection of the 
RAM disk’s file allocation table and di- 
rectory and is then passed as logical 
sector transfer requests to the VDISK 
device driver. 

In order for VDISK to access a logi- 
cal sector in the VDISK extended 
memory, it sets up some descriptor 
tables, stuffs a flag into the CMOS RAM 
area, and switches the 80286 into Pro- 
tected Mode. Now, getting back into 
Real Mode so that VDISK can deliver 
the data to the requesting program is 
a bit of a problem. The current mod- 
els of the 80286 have no provision for 
returning to Real Mode because it 
would provide a means for pro- 
grams to defeat the protection mech- 
anisms altogether. 

Instead, VDISK sends a special signal 
to the keyboard’s controller and sim- 
ply halts the 80286 CPU. The keyboard 
control recognizes the signal and 
forces an interrupt of the 80286, which 
restarts it as though it has just been 
turned on. The 80286 goes through its 
usual power-up ROM sequence, fid- 
dles around awhile, and finally in- 
spects the CMOS RAM for the VDISK flag; 
when it finds the flag, it restores the 
previous contents of the CPU registers 
and transfers control back to DOS and 
the application program. 

The fact that this kludge works at 
all is amazing; the fact that it works 
fast enough to be useful for anything 
is a tribute to the power of the 80286. 

Sadly enough, after tracing out and 
marvelling at all this grotesque code, 


16-BIT SOFTWARE TOOLBOX 


we were no wiser about why PC/ 
FORTH was crashing when used with 
VDISK. It took a particularly deter- 
mined user, armed with a hardware 
debugging probe and lots of pa- 
tience, to discover the explanation: 
VDISK inexplicably trashes the vec- 
tors for interrupts OFOH-OFFH some- 
where in the transition from Real 
Mode to Protected Mode and back 
again. Even knowing what to look 
for, we haven't found the little bit of 
code in VDISK that does the dirty 
work—but it’s in there somewhere! 


LaserJet and WordStar 
Some months ago I discussed the 
problems of getting WordStar to 
work with the Hewlett-Packard La- 
serJet printer. I eventually obtained a 
new printer-support disk from Mi- 
croPro that gave WordStar control of 
the LaserJet’s italics, boldface, and mi- 
crojustification, but there was still no 
support for the proportional fonts 
needed for really high-quality output. 

I have recently been blessed with 
the following utility programs, from 
two different companies, that can be 
used with WordStar document files 
to produce typeset-quality output on 
the LaserJet: 


¢ StarJet 2.0 from Control-C Software, 
6441 S.W. Canyon Court, Portland, 
OR 97221; (503) 292-8842. Price: $150. 
Requires 45K RAM to execute. Not 
copy protected. 


¢ Polaris Printmerge from Polaris 
Software, 310 Via Vera Cruz, Ste. 
205, San Marcos, CA 92069; (619) 471- 
0922. Price: $99. Requires 196K RAM 
to execute. Copy protected, but 
non-copy-protected disk available 
for an additional $25. 


Polaris Printmerge requires more 
drastic alterations to your document 
files and has weaker support for co- 
lumnar data in the proportional 
fonts. But both programs are easy to 
use and allow full access to all the 
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fonts, proportional spacing, and 
right justification. They can also 
draw pretty lines and boxes for gen- 
eration of custom forms. 


Microsoit Macro 
Assembler 

Microsoft has just released a new ver- 
sion (4.0) of its Macro Assembler that 
contains a number of impressive im- 
provements over previous versions. 
Overall assembly speed has been im- 
proved by a factor of 2 to 3, and the 
input/output buffers and macro text 
have been moved out of the symbol 
space, allowing assembly of larger 
source files. Most of the bugs men- 
tioned in earlier 16-Bit Toolbox col- 
umns have been fixed, including gen- 
eration of the correct opcodes for all 
the special 80286 instructions. 

A number of new features have 
been added, including switches to set 
the file buffer to any size from 1K to 
63K, to define a symbol from the 
command line to control conditional 
assembly directives, and to check for 
impure code that would cause prob- 
lems in 80286 Protected Mode. 

The CREF (Cross Reference Utility), 
LINK (Object File Linker), SYMDEB 
(Symbolic Debugger), and MAKE (Pro- 
gram Maintenance Utility) utilities 
have all been enhanced, and two 
new utilities have been added. These 
are EXEPACK, which allows you to 
pack executable files by removing 
repetitive sequences of bytes, and 
EXEMOD, which lets you modify the 
stack size or memory allocation 
fields of an EXE file header. 

The manual for the new assembler 
and its associated utilities is excellent. 
Information is well indexed and easy 
to find. The manual provides virtual- 
ly no guidance on 8086/80286 pro- 
gramming, however, so you will still 
need additional reference materials 
such as Intel’s iAPX 86 User’s Guide or 
Rector and Alexy’s The 8086 Book. 


68000 Feedback 

Lee Robertson of Sandy, Utah, 
writes: “I found [the 68000 routines] 
published in the November 1985 16- 
Bit Toolbox column very interesting 
and would like to add some sugges- 
tions. First of all, Mike Morten sug- 
gests using ADD instructions instead 
of shifts in the square-root routine. I 
agree this speeds things up, but only 
by half the amount he states. An 
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ADD.L instruction requires eight time 
states instead of six. 

“Regarding the random-number 
routine of November's Listing Four, 
the following four lines above label 
DIV2: 


LSL.L 1,D6 
LSL 1,D5 
BCC.S DIV2 
ADDO.L 1,D6 


can all be replaced by two ADD in- 
structions as follows: 


ADD 
ADDX.L 


D5,D5 
D6,D6 


“Not only is this shorter but it is 
also much faster. These lines are in- 
side the main loop, so any improve- 
ments that can be made here will 
greatly affect the total run time of 
the program. The loop is taken 15 
times, so that the average time sav- 
ings are 300 time states. Also, the con- 
stant 127,773 is used twice inside the 
main loop. If this is placed in a regis- 
ter instead, it will save another 240 - 





a ees eee 
Lattice’ Works 





RPG COMPILER FOR IBM PC 

The new Lattice RPG II compiler is 
ideally suited for creating commercial 
applications for MS-DOS. Allow your 
current RPG II programmers to be 
productive on MS-DOS. 

The Lattice RPG II compiler is compat- 
ible with System III, System/34 and /36 
RPG II compilers, it uses ASCII files and 
MS-DOS command language, plus has 
ISAM compatibility with dBASE III. 
$750.00 and no run time fees. 





VERSION 3 OF THE LATTICE 
MS-DOS C COMPILER IS NOW 
AVAILABLE. 


This is a major upgrade of 
the product and is available to 
registered users for a $45 update 
fee. Non-registered $60. The list 
price remains $500. 


New compiler features include: 

* ANSI language constructs... 
“unsigned” as a modifier 
“void” data type 
“enum” data type 
structure assignments, arguments, 
and returns 
argument type checking 

¢ Inline code 8087/80287 

80186/80286 

* Code generation 
The compiler also contains 

numerous improvements such as 


BS, 
Qe 





o- 
Lattice 
(312) 858-7950 TWX 910-291-2190 
INTERNATIONAL SALES OFFICES; 
Benelux: De Vooght. (32 )-2-720-91-28. 
Japan: Lifeboat Inc. (03) 293-4711 
England: Roundhill. (0672) 54675 
France: SFL (1) 46-66-11-55 
Germany: (49) 7841/4500 (49) 8946/4613-290 


better aliasing algorithms, more 
efficient code generation, and more 
flexible segmentation. The library 
includes more than 200 new 
functions in the following 
categories: 
* ANSI/UNIX/XENIX compatibility 
* Extended support for MS-DOS 
* Extended support for networking, 
including file sharing, file locking, 
and I/O redirection 
* Flexible error handling via user 
traps and exits 
The Library has also been 
re-engineered to produce much 
smaller executables. 


LATTICE ANNOUNCES NEW DATA 
ENCRYPTION SOFTWARE 

Now you can keep your 
confidential data confidential. 
Thanks to new SecretDisk, a new 
data encryption system for IBM PC, 
XT, AT and compatibles. 

Utilizing the NBS Data Encryption 
Standard, SecretDisk provides 
complete security for salaries, 
customer lists, or other sensitive 
information stored on a floppy or 
hard disk. SecretDisk is loaded as a 
disk driver by MS-DOS. It creates 
new DOS drives (like D:) on floppy 
or hard disks where all data and 
programs are always fully 
encrypted. 

SecretDisk is extremely easy to 
use. A password is entered when the 
system is booted, and protection can 
be switched on and off with a single 
password controlled command line. 
However, without the password, 
there is no way to access the 
encrypted files. $59.95. 

Contact Lattice, to discuss your 
programming needs. Lattice 
provides C compilers and cross 
compilers for many environments 
including Tandy, Sony, Hewlett- 
Packard, Tandem, and IBM 
Mainframe. Corporate license 
agreements available. 


Circle no. 101 on reader service card. 
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16-BIT 
(Continued from page 117) 


time states. 

“IT have included a square-root rou- 
tine (Listing One, page 114) that is fast- 
er than the routines you previously 
published. It works on 2 bits at a time, 
starting with the highest bits in the 
number. It guesses the square root of 
2 bits and keeps testing 2 bits at a time 
to see if the guess is too large for the 
number; if so, it divides the guess by 4 
to move to the next 2 bits in the num- 
ber. It repeats this process for each 2- 
bit combination in a 32-bit number. 

“The first loop in the program is 
used to quickly scale the initial guess 
down to the size of the input num- 
ber. This speeds things up greatly for 
smaller input values. The time re- 
quired for best case (input=0) is 650 
time states; the time increases as the 
input number gets larger up to a 
worst case (input=OFFFFFFFFH) of 
1,322 time states. 

“T have also included a listing for a 
general-purpose 32-bit divide rou- 
tine. (See Listing Two, page 114.) The 
method requires that the divisor be 
greater than 16 bits (65,535). If the di- 
visor is 65,535 or less, the 68000 hard- 
ware divide instruction can be used 
instead, because it will be quite a bit 
faster even if it has to handle over- 
flow from the divide.” 


8086 Programming Pearls 
Dan Daetwyler, a veteran correspon- 
dent of DDJ, writes: ‘‘Here is a cute 
method for binary-to-decimal ASCII 
conversion that might prompt a few 
readers to exploit the 8086’s instruc- 
tion set more. It assumes that register 
AL contains the value to be convert- 
ed and that DI contains the address 
where the ASCII characters should be 
stored. The first variation can handle 
any value between 0 and 255 and al- 
ways returns three bytes. The sec- 
ond variation assumes an input value 
between 0 and 99 and always returns 
two bytes. Many other variations on 
this theme are possible.” Dan’s rou- 
tines are in Listing Three, page 114. 


Utility of the Month 

The 16-Bit Toolbox just wouldn't be 
complete this month without a nice 
MS DOS utility, and Norman McIntosh 
was kind enough to supply one. His 
program, named TAIL, works much 
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like its Unix equivalent and will send 
the last n lines of the designated file to 
the standard output device (which 
may be redirected to the printer or a 
file or piped to another filter pro- 
gram). 

The TAIL program is given in List- 
ing Four, page 114. Instructions for 
use of the program may be found at 


ARE YOU TRYING 
TO COMMUNICATE ? 





the beginning of the source code. 


DDJ 


(Listings begin on page 114.) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 6. 





C programs can communicate with the world now through the power of 
The Greenleaf Comm Library. Now from the people who brought you The 
Greenleaf Functions General Library for C, comes this rich interrupt driven, 
ring-buffered asynchronous communications capability. 


Over 100 functions in C and assembler to facilitate communications at up to 
9600 baud. Up to eight ports at a time. ASCII or XMODEM. X-On/X-Off too. 
Hayes compatible modems controlled here. Safe too, bet you can’t exit your 
application with interrupts hot. Major applications around the world base 
their communicating applications on The Greenleaf Comm Library. Stop just 
trying and start really communicating. Get your copy of The GreenleafComm 
Library today. For all major C compilers, all models, all versions. For the 
IBM PC and just about any machine with MSDOS and an 8086. Comes with 
source code, extensive examples, demo programs, featuring C-Terminal, 





reference card and newsletter. No royalty. $185 


Other Products: The Greenleaf Functions General Library, over 220 
functions for total control of the IBM PC, with source. $185 for the compilers 
listed below. (See ordering instructions below). 


Specify compiler when ordering: Lattice, Microsoft, Computer Innovations, 
Mark Williams, or DeSmet. Add $7.00 for UPS Second Day Air (or $5.00 for 
ground). Texas residents add sales tax. Mastercard, VISA, check, or P.O. 


In stock, shipped same day. 


$185 
$185 
$349 
$395 
$475 


CJ) General Libraries 


C)Comm Library 
L)CI186 Compiler 
CL) Lattice C 

CJ Mark Williams 


PRICES ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. 


For Information: 


214/446-8641 


GREENLEAF 
SOFTWARE © 


2101 HICKORY DR. 
CARROLLTON, TX 75006 





Circle no. 97 on reader service card. 
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PROGRAMMER’S SERVICES 


OF INTEREST 






on 






Windows 

More than half of corpo- 
rate personal computers 
will use Microsoft's Win- 
dows by 1990, according to 
David Ferris, chairman of 
Ferin Corp., a firm that 
provides PC support for 
Fortune 1000 companies. 
He predicts that Micro- 
soft’s product will become 
the industry standard over 
such competitors as IBM's 
TopView, Digital Re- 
search’s GEM, and Quarter- 
deck’s DESOview. 

The power of Windows 
is also expected to increase 
over the next three to five 
years for the following 
reasons: other software de- 
velopers will adapt their 
products to it; and hard- 
ware will improve to in- 
clude larger RAM memory, 
faster processors, and bet- 
ter chip instruction sets. 

The latest release of 
Windows from Syscom 
Software allows program- 
mers to incorporate on- 
line help, pop-up win- 
dows, and_ pull-down 
menus in new or existing 
applications. Wings, the 
Window Generation Sys- 
tem, lets programmers cre- 
ate windows and generate 
the source code for them 
automatically. 

C Windows includes 
modules for all memory 
models of Computer Inno- 
vations, Desmet, Lattice, 
and Microsoft C. BASIC 
Windows supports Digital 
Research CB-86, Microsoft 
Compiled BASIC, Business 
BASIC and Quick BASIC, and 
the IBM BASIC Compiler 
and Business BASIC Compil- 
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er. C Windows and BASIC 
Windows are priced at 
$99.95. Wings sells for 
$49.95. 


Artificial 
Intelligence 

Multibots is a line of elec- 
tronic-robotic experiment 
and construction sets from 
Access Software. The foun- 
dation of the product line 
is a master electronics 
module that connects to 
the user’s home computer. 
This module contains all 
the necessary circuits and 
components to allow the 
computer to function as a 
sophisticated control de- 
vice that can take measure- 
ments and sense tempera- 
ture, sound, light, and 
other conditions. 

Multibot sets teach the 
principles and theory of 
computer-controlled ro- 
botics, facilitate experi- 
ments and projects in 
speech and audio digitiza- 
tion and playback, and 
permit users to take pre- 
cise electronic measure- 
ments with software and 
hardware that turns the 
computer into a sensitive 
digital voltmeter and/or a 
digital storage oscilloscope. 
The sets can also sense 
events and preprogram 
events. The product line 
operates on the Commo- 
dore 64 and 128 computers. 
Versions are expected for 
Amiga, Apple, Atari, and 
IBM personal computers. 

Prolog V-Plus, a Prolog 
interpreter from Chalced- 
ony Software, features 
more than 100 predefined 
predicates and operators, 
double-precision floating 
point arithmetic, standard 
arithmetic functions plus 
transcendentals and trigo- 
nometrics, a large memory 
model (up to 640K RAM), 
coresidency (the ability to 
call other programs), and 


addressable cursor and 
graphics functions. It also 
adheres to the de facto 
standard Edinburgh syn- 
tax and provides interac- 
tive debugging facilities 
and memory manage- 
ment. Prolog V-Plus re- 
quires PC DOS or MS DOS, 
Version 2.1, and 256K RAM. 
It is available for $99.95. 

Version 2 of ESP Advisor, 
from Expert Systems Inter- 
national, allows the con- 
struction of knowledge 
bases of up to approxi- 
mately 3,000 rules. Prolog- 
2, as a compiler and inter- 
preter, combines with ESP 
Advisor. The new version 
includes the ability to in- 
voke programs written in 
Prolog during consulta- 
tions using an optional Pro- 
log-2 interpreter, a virtual 
knowledge base that al- 
lows very large knowledge 
bases to be created, the ref- 
erencing of parameters 
from within any text item 
displayed, a set of com- 
mands, and a full on-line 
help facility. Version 2 is 
priced at $895. 

Human Edge Software's 
Certified Developers’ pro- 
gram is sponsoring 20 au- 
thors to develop expert sys- 
tem applications using 
Expert Edge. The Certified 
Developers’ program is de- 
signed for users who build 
an expert system applica- 
tion for resale. Applications 
under development range 
from a medical malpractice 
advisor that will provide 
physicians with an edge 
against possible medical 
malpractice suits to an ex- 
pert telephone consultant 
that will advise users on 
how to reduce business 
telephone expenses based 
on a firm’s usage, needs, 
and available alternatives. 


Communications | 
HyperAccess is a software 


program from Hilgraeve 
that runs on PC-compatible 
computers to allow com- 
munications through mo- 
dems or cable with almost 
any other computer. It can 
transfer files at rates of 
more than 1K per second 
and allows the computer 
to act as an unattended 
host so it can be run from 
any remote computer or 
terminal. Other programs, 
DOS commands, or DOS 
macros can be used while 
on-line. HyperAccess is 
available for use with PC 
DOS or MS DOS on IBM PC, 
PC/XT, PC/AT, and PC-com- 
patible or Z-100 computers. 

With Polygon’s poly- 
Share product, personal 
computer and VAX/VMS us- 
ers can build a VAX-based li- 
brary of personal comput- 
er applications. Text or 
binary file entries can be 
checked into and out of the 
poly-Share library. The 
program features entries 
organized by site-specified 
category, a menu-interface 
and automatic PC transfers, 
multiple libraries, cross-in- 
dexing, and free-form li- 
brary searches. poly-Share 
uses Polygon’s poly-XFR file 
transfer software on the 
host VAX system and either 
poly-COM, poly-COM/220, 
or poly-COM/240 terminal 
emulation and file transfer 
products on the personal 
computer. 

A software-based net- 
working system for com- 
puters based on the 68000 
and 6809 processor fam- 
ilies, the OS-9 from 
Microware Systems, com- 
bines the file and input/ 
output systems of all con- 
nected computers into one 
file system. Any network 
user can access files and 
I/O devices directly on any 
other system on the net- 
work as if they were local 
files. The system can be 
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used with a standard local- 
area network or long-haul 
data communications 
hardware. It is compatible 
with Ethernet, Omninet, 
ARCnet, and IEEE-488. Built- 
in security features are 
also included. 

Based on Motorola 68000 
and 6809 microprocessor 
technologies, the Codex 
6740 is a midrange statisti- 
cal multiplexer that sup- 
ports interfaces for a mix of 
asynchronous, synchro- 
nous, and bit-oriented pro- 
tocols. The 6740 nodes sup- 
port up to eight high-speed 
composite links ranging in 
speed from 2,400 bps to 
64,000 bps. The system sup- 
ports up to 19.2K bps and is 
capable of stat muxing up 
to 64 channels onto one or 
more high-speed links. It 
also provides automatic 
routing capabilities. The 
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cost is 
$6,000. 
Infotron Systems has an- 
nounced that its Info- 
Stream 1500 high-speed 
multiplexer is compatible 
with AT&T's Digital Access 
and Cross-Connect System 
(DACS). DACS consists of cen- 
tral-office switching equip- 
ment that allows a T1 carri- 
er facility of 1.544M bps to 
be switched or cross-con- 


approximately 


nected to another T1 
Carrier. 
Utilities 


Dogwood Software has an- 
nounced Helping Hand, a 
concurrent productivity 
aid and reference utility 
for IBM PC, XT, AT, and 
Type I compatibles. The 
program runs in a win- 
dowing environment al- 
lowing users to access a va- 
riety of on-line reference 


files. Helping Hand re- 
quires MS DOS 1.0 or later, 
33K minimum RAM, and 
one floppy disk drive. 

Minnow Bear Comput- 
ers’ CBC Manager II is a util- 
ity for Digital Research's 
CBASIC compiler that al- 
lows programmers to uti- 
lize more memory. It does 
this by allowing functions 
to be placed and called 
from areas normally inac- 
cessible to CBASIC compiler 
programs. CBC II also has 
options that allow routines 
to be called in MS C or MS 
Pascal. The utility is avail- 
able for MS DOS and re- 
quires MS DOS 2.1 or later to 
run. 

Mastercom, a telecom- 
munications utility from 
The Software Store, is avail- 
able for the IBM PCjr, as 
well as for most computers 
compatible with IBM PC DOS 





and CP/M-80. Mastercom 
supports Christensen XMO- 
DEM, XON/XOFF, line at a 
time, and no protocol. It 
features auto-dial, auto-an- 
swer, host-mode unattend- 
ed operation, batch-file 
transfer, directory display, 
file erase, file rename, disk 
drive logging, stored re- 
sponses, file viewing, 
upload text throttle, filter 
or ASCII display options for 
received control parame- 
ters, and menu-installed 
and menu-driven 
operation. 

Squeezepak, an_ en- 
hanced disk compression 
and optimization utility 
from Demac Software, is 
intended for use on the DEC 
PDP-II line of minicomput- 
ers using the RSC operating 
system. A VAX/VMS version 
is also available. With the 


system, users Can request 
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A Unix-like Shell 
AND a Unix-like Utility Package 


by Allen Holub 
Both Available on Disk for MS-DOS 


THE SHELL... (util 





SH—A Unix-like Shell for MS-DOS A Unix-like Utility Package for MS-DOS 

SH is an implementation of the most often used parts of the Jutil is a collection of Unix utility programs for MS-DOS. This 
Unix C shell. This package includes an executable version package includes complete source code. All programs (and 
of the shell along with the complete source code and full most of the utility subroutines) are fully documented. Youll 
documentation. find executable versions of: 
Supported features are: cat A file concatenation and viewing program 
Editing Command line editing with the cursors is Ms f : be copy uly a 

supported. The line is visible as you edit it ale€ Pr ints the current time and ale 
Aliases Can be used to change the names of com- du Prints amount of space available and used 

mands or as very fast memory resident Ona disk 

batch files. echo Echoes its arguments to standard output 
History The ability to execute a previous command grep Searches for a pattern defined by a regular 

again. The command can be edited before EXPFeSSION. 

being executed. Is Gets a sorted directory. 
Shell Macros that can be used on the command line. mkdir Creates a directory 
variables mv Renames a file or directory. Moves files to 
Nested A batch file can call another batch file like another directory. 
batch files subroutine. Control is passed to the second file p Prints a file, one page at a time 

and then back to the first one when the second pause Prints a message and waits for a response. 


file is finished. DOS doesn't have this capability: 


Unix-like — Slash (/) used as a directory separator, minus PPR FTI a) Tiere VEINS 


syntax (—) as a switch designator. A 2048 byte com- rm Deletes one or more tiles. 

mand line is supported. Command line wild rmdir Deletes one or more directories. 

card expansion. Multiple commands on aline. — sub Text substitution utility. Replaces all matches of 
The shell also supports redirection of standard input, a regular expression with another string. 
standard output, and standard error. 
This version corrects several bugs found in the original ver- 
sion printed in Dr Dobb’s eae December ‘ak through For faster service on credit card orders, CALL TOLL-FREE 
March 1986 issues. It runs on any MS-DOS computer. 1-800-528-6050 Ext. 4001. Please refer to item ’s. 


To order return this coupon with your payment to: Dr. Dobb's Journal, 501 Galveston Dr., Redwood City, CA 94063 
: J Please send me _______ copies of The Shell for $29.95 each ___ 
VES ____ copies of /util for $29.95 each ee sega 
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| Card # Exp. Date 
| Name | 
| Address | 
3 Gide eS bei eins ee i Sie Rae | 
| 


PROMPT DELIVERY! 31140 





OF INTEREST 
(Continued from page 121) 


the generation of statistical 
profiles describing a disk’s 
fragmentation status 
throughout the file reorga- 
nization process. This in- 
formation can be dis- 
played on the users’s VDT 
or directed to a disk log file 
during run time. 


Security 

Sutton Designs is shipping 
its sixth-generation surge 
suppressors under the 
original ZX-5000 label first 
introduced in 1981. Twen- 
ty-seven models are avail- 
able in the series, including 
modem data line protec- 
tors and brownout protec- 
tion models. The sixth-gen- 
eration introduction 
includes a five-stage surge 
and spike system designed 
to exceed all IEEE 587 1980 
Category A test 
requirements. 

Everett Enterprises has 
released a software en- 
cryption program called 
the Private Line. It con- 
forms to the Data Encryp- 
tion Standard published by 
the National Bureau of 
Standards. MS DOS and 
CP/M versions are avail- 
able. The Private Line en- 
ables users to send commuz- 
nications (program, data, 
or text files) over telecom- 
munications networks 
without fear of interfer- 
ence by third parties. 

Rainbow Technologies 
has released a Xenix ver- 
sion of its Software Senti- 
nel hardware key system 
that prevents unautho- 
rized access to software 
programs. The Software 
Sentinel uses a proprietary 
encryption algorithm. A 
series of locks are defined 
by the software developer 
and are implemented as 
part of the program. 


Productivity Aids 
Lightning is a RAM-resident 
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disk-caching program 
from the Portable Comput- 
er Support Group (PCSG) 
that is designed to antici- 
pate what disk accesses are 
most likely to occur. Algo- 
rithms enable the program 
to build a smart buffer, 
which keeps the most 
called-for disk accesses in 
RAM and is adjustable from 
40K to 300K. Lightning is 
intended to improve the 
performance of the IBM PC, 
XT, AT, or any compatible 
running under MS DOS. A 
copy-protected version 
sells for $49.95; the unpro- 
tected version is $89.95. 

The RaceCard-286, a 
plug-in card that is said to 
run software up to six 
times faster than normal 
with no modification to 
the software, is available 
from Mountain Computer. 
RaceCard emulates the IBM 
8088 processor and is com- 
patible with nearly all AT 
software, RAM, and pe- 
ripheral cards. The half- 
card, which measures 
5X3.9 inches, uses 7 watts 
of power from the com- 
puter’s power supply. The 
3Com Ether Series, Novell, 
Orchid PCnet, and Starlan 
are among the network 
packages supported. Race- 
Card is priced at $795. 

The AT Gizmo is a card 
from The Software Link 
that allows PC DOS applica- 
tions to use 4.6 megabytes 
of extended memory in 
the PC/AT. The AT Gizmo 
with MultiLink Advanced 
allows up to nine parti- 
tions of up to 512K each. It 
attaches directly to the 
80286 processor and oper- 
ates at up to 10 megahertz. 
A separate slot in the PC/AT 
is not required. The prod- 
uct sells for $295. 

Odin Research has devel- 
oped Otis decision support 
software to run on any IBM 
PC or compatible, and on 
any IBM mainframe or 
compatible using the CMS 
operating system. Otis is 


compatible with Lotus 1-2- 
3, Symphony, and dBASE. 
All data processing takes 
place in an area of memo- 
ry that automatically ex- 
pands to the size of avail- 
able computer memory. 
Large groups of items can 
be handled as a single item 
using a letter series of 
names. Processes can be re- 
peated with a built-in lan- 
guage that includes loops 
and conditional expres- 
sions. Otis runs on DOS 2.0 
or later and requires 320K 
minimum memory. 

With the ZSTEMpc-4014 
from KEA Systems, users 
can interactively zoom in 
to display portions of an 
image that would other- 
wise be hidden by the lim- 
ited resolution of the 
screen. While zoomed in, 
users can pan to different 
portions of the image. The 
zoom and pan functions 
are controlled by the cur- 
sor keys or a mouse and 
are transparent to the host. 
Images can be saved and 
recalled from disk. The 
system emulates a Tek- 
tronix 4014 terminal with 
the enhanced graphics op- 
tion. It requires ZSTEMpc- 
VT100, Version 2.0 or later, 
and runs on IBM PC, PCjr, 
XT, AT, or compatible com- 
puters with MS DOS, Ver- 
sion 2.0 or later. It also re- 
quires 192K of main 
memory; a color/graphics, 
enhanced graphics, or Her- 
cules graphics adapter; an 
internal modem or serial 
port; and one floppy drive. 


Apple 

SoftDesign has agreed to 
act as publisher for Mac- 
Lightning, a RAM-resident 
software tool that allows 
users to access and manip- 
ulate a variety of data li- 
braries and _ reference 
works. The product is pub- 
lished jointly under an 
agreement reached be- 
tween SoftDesign and Tar- 
get Software. MacLight- 


ning, which currently in- 
cludes a 31,000-word dic- 
tionary and a_ built-in 
grammar checker, costs 
$99.95. It runs with Jazz, 
Excel, Omnis 3, Page- 
Maker, Word, and Think- 
Tank. Built-in “Hot Keys” 
allow users to correct er- 
rors within a document, 
add words to the dictio- 
nary, or jump between an 
application and MacLight- 
ning. AS words are 
checked, they are left in 
RAM to speed up future 
corrections. 

*subCity is a library of 
subroutines and declara- 
tions for Apple Pascal pro- 
grammers that includes 
the source texts for more 
than 100 procedures, func- 
tions, and declarations, as 
well as information on sev- 
eral hard-to-find topics. 
Topics in *subCity include 
character, number, and 
string handling; input 
prompts; error handling; 
and search and sort algo- 
rithms. A set of routines 
for disk use provides disk 
directory lists, disk crunch, 
date set, file rename, and 
compare. Assembly-lan- 
guage routines include 
finding the memory ad- 
dress of any variable, a 
string finder, and bit-ma- 
nipulation for character 
arrays. *subCity is available 
for Apple II computers 
with Apple Pascal. 

Apple II Pascal, Version 
1.3, supports UniDisk 3.5, 
Apple’s recently intro- 
duced 32-inch floppy disk 
drive that increases floppy 
disk storage capacity to 
800K. It includes the lan- 
guage on both 3'2- and 5%4- 
inch disk formats. The new 
version runs on any Apple 
II Plus, Ile, or IIc personal 
computer with at least 64K 
of internal memory. 


Application 
Development 

Synergy, a TopView-com- 
patible, multitasking oper- 
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ating environment offer- 
ing windows, _ icons, 
pull-down menus, fonts, 
and other graphic tools in 
12K RAM, allows develop- 
ers to create user inter- 
faces. Available from Ma- 
trix Software, Synergy is 
compatible with MS DOS or 
PC DOS (Version 2.0 and lat- 
er) and TopView. Up to six 
programs can be run si- 
multaneously as multitask- 
ing background processes 
in windows. 

On-Line Software Inter- 
national has announced 
that DataVantage, a CICS/ 
IMS application testing and 
development tool, has 
been enhanced to support 
the DOS/DL1 database envi- 
ronment. DataVantage fea- 
tures ad hoc query, delete, 
replace, and insert func- 
tions in the batch or on- 
line modes. All accessed 
data is automatically trans- 
lated into a display. Seg- 
ments can be selected for 
processing based on the 
contents of one or several 
fields within the segment. 

CompuFirm’s Data Base 
Manager software subsys- 
tem enables writers of ap- 


plication programs to 
store, update, and retrieve 
data records. This can be 
accomplished on micro- 
computers functioning un- 
der the DOS, iRMXx-86, and 
RTX operating systems. 
The Data Base Manager 
maintains data records 
that are accessed through 
actions such as open/close 
database; read/write/re- 
write/delete record; read 
next or previous record; 
and purge or create data- 
base. Each format is avail- 
able for $495. 

StruBAS, the structured 
BASIC Development System 
for the IBM PC and compati- 
bles, provides structured 
programming facilities, 
full-screen handling, in- 
dexed files, and menus. A 
preprocessor translates BA- 
SIC, encased in structured 
constructs without line 
numbers, to Microsoft BA- 
SIC. Subroutines and re- 
cord structures for I/O are 
included, and built-in com- 
mands support full-screen 
and indexed file features. 
The system, from Laney 
Systems, also features a 
file-maintenance program 
generator, development 
menus, an ISAM rebuild 
utility, a source indent util- 


ity, and utility subroutines. 

CRI’s Relate/3000 data- 
base management system 
now operates under Ada. 
The Application Builder 
feature serves as an inter- 
face between the user, the 
application being devel- 
oped, and Relate itself. It 
uses high-level commands 
to access Relate commands 
and constructs, defining 
screen layouts with page 
images stored in an appli- 
cation file. 


Services 

Deltak has released JCL 
Fundamentals, an eight- 
course computer-based 
training series. An intro- 
duction to MVS Job Control 
Language (JCL), this series 
covers topics ranging from 
an overview of  JCL 
through common JCL state- 
ments, job streams, and de- 
bugging JCL errors. The 
courses deliver instruction 
on-line using Phoenix/DS. 
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TASKVIEW is high tech, available now, and it works with virtually all DOS software. 
Give Lotus, Sidekick, Multimate or most any DOS program the advantages of real multi- 
tasking. It’s simple to use, compatible, bulletproof and most of all, it won’t slow you 
down. That’s because TASKVIEW only shares your computer when YOU want it shared. 
At other times, your visible program runs at full speed, waiting for you to easily 
switch from program to program at the touch of a key. Compatible with most DOS 


computers including the IBM PC/XT/AT/Jr. series, you can order TASKVIEW today 


for only $69.95 + 5.00 Shipping and Handling, VISA and Mastercard. 


ORDER LINE 


(206)367-0650 
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Sunny Hill 


Software 


13732 Midvale North Suite 206 
Seattle, Washington 98133 


Lotus trademark Lotus Development Corp. 
Sidekick trademark Borland Intl. 
Multimate trademark Ashton Tate. 
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PROBLEM: There’ just no easy way to move from one 
software program to another. 





THE SOFTLOGIC SOLUTION: Software Carousel 


Now you can keep up to 10 programs 
loaded and ready to run. 


Hard to believe, but some people are 


happy with just one kind of PC software. 
Well, this is not a product for them. 

But if youre someone who 
depends on many packages, all 
the time—someone who'd use 
several programs at once if you 
could, well now you can. With 
Software Carousel. 






card compatible with the L/I/M Extended 
Memory Standard. 

Software Carousel puts programs into 
this “high-end” memory for temporary 
storage when theyre not in use. And 
switches them back out when 
you want them. It’s fast, effic- 
ient, and easy. 

If you want, Software Car- 
ousel will even use your hard 
drive for swapping. Just allo- 
cate a portion for storage, and 





o, 66 
Why ane mae wih Sofware Carousel go to work. 
. running In , You Can . ‘ 
load a program and retrieve Sidekick, Superkey 
In some ways, Software a file up to 15 times faster. and Ready. All at the 






Carousel works like the slide 
projector youre used to. You 
load a handful of pictures, view one at a 
time, then quickly switch to another. A 
simple idea, with powerful possibilities 

for computing. 

Here’s how it works. When you start 
Software Carousel, just tell it how much 
memory you have, load your software and 
go to work. 

Need to crunch numbers? Switch to your 
spreadsheet. Need your word processor? 
Don’t bother saving your spreadsheet file. 
Just whip over to your document and do 
your work. Snap back to your spreadsheet, 
and it’s just like you left it. 

With up to ten different programs at your 
fingertips, you'll have instant access to your 
database, communications, spelling checker, 
spreadsheet, word processor, RAM resident 
utilities, languages, anything you like. 


Reach deep into expanded memory. 


This could be the best reason ever for 
owning an expanded memory card, like the 


Intel Above Board, AST RAMpage, or any 


Test conducted on an IBM XT 


same time. 


You know what happens if 

you try loading two or more RAM resi- 
dent utilities at once. You get crashed 
keyboards, frozen screens, all kinds of 
interference between 
programs fighting 
for control. 

With Software 
Carousel, you can 
have as many acces- 


=) 


YES! 


Please send me 


Software Carousel *49* 


difficult to use. Not so. Set it up once, 
and it will remember forever. Better still, 
Carousel will look for the programs you 
use most often, and optimize them for the 
quickest access. 

You can spend a lot more money, and 
still not get the convenience and produc- 
tivity increase of Software Carousel. 

The way we see it, there are certain things 
you have the right to expect from your 
computer. Access to your software is one 
of them. At just $49.95 a copy, Software 
Carousel is the best way to get it. Order 
today at 1-800-272-9900 (1-603-9900 in NH) 
or send the coupon below. 

Special combination pricing is available 
for the purchase of Software Carousel and 
other SoftLogic products, including 
DoubleDOS and Disk Optimizer. 


1-800-272-9900 


copies of Software Carousel today. 


| | 

| | 

y eee | 

sories and utilities on- | ame | 
tap as you want. Just 

load different ones in [2 pees | 

different Carousel | Address | 

pepe Se Saint ee | 

they can’t fight. | Check Enclosed  VISAQ  MCO # £AMEXO | 

The easy way | Card # Exp. Date | 

Pee | Signature | 

; Be : | SoftLogic Solutions, Inc. | 

With all this power, 530 Chestnut St., SOFTLOGIC 

you might think | Manchester, NH 03101 SOLUTIONS | 

Software Carousel is | *plus $5.00 shipping and handling. | 

complicated and Be eh a a ae te a at ee ee 4 
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Artificial Intelligence 


is no longer the 
exclusive domain of the 
men in white coa 








The Publishers of 
COMPUTER 


LANGUAGE 
announce 


The first big wave of Al 
products has swept out of 
the laboratory and into the 
marketplace. After 25 
years of hope and hype, 
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Foreign Orders: 

Canada $33.00 

World Surface Mail $39.00 
World Air Mail $57.00 


A 





commercial applications 
of Al technology have be- 
come a reality. The time 
has come for an Al pro- 
grammers magazine that 
focuses on real-world ap- 
plications and problem- 
solving techniques today! 

Become a Chanter Sub- 
scriber to the first com- 
mercial magazine about 
Artificial Intelligence. . .Al 
EXPERT. No hype, no star 
wars nonsense, no pipe 
dreams. Al EXPERT will 
focus on practical Al pro- 
gramming methods and 
applications. 

You will learn from the 
foremost experts about 
the world of Al: 

e Natural Language 

Processing 
e Knowledge 
Representation 
Machine Vision 
RRule-based 
Programming 
Heuristic Search 
Algorithms 
LISP and Prolog pro- 
gramming techniques 


















J 
ad 





S 
MI BR 
pe 
e Syntactical Pattern 
Recognition 
e Expert Systems Shell 
Languages 
And Much, Much More! 
Only the publishers of 
COMPUTER LANGUAGE 
could produce a quality 
publication about what's 
really happening in the Al 
industry. You'll read real- 
world application case 
studies like: 
e Intelligent Tutoring 
Systems 
Medical Diagnosis 


e Flight Control Systems 
Resource Planning and 


you'll receive the Premier 


Optimization 

e Financial Management Issue FREE as a Charter 

e Robotic Assembly subscriber. To get your 

e Computer System free Premier Issue of Al 
Configuration EXPERT we must receive 

e Industrial Process your subscription coupon 
Control by May 45th. 

e Automatic Programming SO send in your sub- 

e Investment Analysis scription form today! 


We're so sure you'll be 
more than satisfied with Al 
EXPERT that we're includ- 
ing an ironclad money- 
back guarantee. Plus 


Send to: Al EXPERT 
2443 Fillmore Street 

Suite 500 

San Francisco, CA 94115 


SE OE SS GOS SE BE TE? Ge CA AP 


Yes! Start my Charter Subscription to Al EXPERT. My 1-year charter subscription 
is just $27.00 — 36% discount off the single issue price. By mailing this coupon in 
by May 15th | also receive the Premier issue of Al EXPERT FREE! That's 13 issues for 


the price of 12. 


1 $27.00 Payment Enclosed 


LJ Bill Me 





Name 





Company 


ge ee ee a a ee ee 


Nee tars ue ye ae er a 


State Zip 


Guarantee: | may cance! my subscription at any time for full refund. 


Foreign orders must be prepaid in U.S. funds. Please enclose your payment 
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Productivity Tools from SCE 


®@ The Seidl Make Utility (SMK) is the most powerful make 
utility you can buy for MS-DOS. When changes are made to 
any program module, SMK will issue only those commands nec- 
essary and sufficient to rebuild the system. SMK uses a super 
fast, proprietary dependency analysis algorithm that analyzes 
all dependencies before rebuilding any files. SMK understands 
complicated dependencies involving nested include files, source, 
and object code libraries. A high-level dependency definition 
language makes setting up dependencies easy. It supports pa- 
rameterized macros, local variables, for loops, constants, include 
files, command line parameters, in-line and block comments, full 
pathname and directory support, and more! Works with most 
compilers, assemblers, and linkers. $99.95 


® The Seidl Version Manager (SVM) is a state of the art 
version control system for MS-DOS. It maintains a complete re- 
vision history of any text file, without duplication, and can re- 
build any previous version of the file. SVM has highly optimized 
compression routines included for large projects and archiving. 
Other features include: full pathname and directory support, 
wildcards, exception cases, on line help, typeset documentation, 
tutorial, automatic error recovery, and much more. SVM is ideal 
for all software and text development projects. No other version 
management system delivers the features, performance, and re- 
liability of SVM. $299.95 


® SMK+SVM together form an extremely powerful, fully in- 
tegrated set of productivity tools. $379.95 


SEIDL COMPUTER ENGINEERING 


1163 E. Ogden Ave., Suite 705-171 
Naperville, IL 60540 
(312) 983-5477 
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SUPER TOOES™ 


b 
PARAGON COURSEWARE 


save you time &time & time... 
If you program in Turbo™ Pascal this 
source code Library is a must. Includes 
Windowing package makes pop-up 
windows and menus easy to program. 
Allows definition of seperate window 
HOGER. ..<0- the most general and 
powerful implementation of overlapping 
Windows available: Computer Language November 1985 
Access System & File information from 
your programs (get dir, change dir, copy 
files,check hardware etc) Evaluate any 
Math Expression typed by user, fully 
protected & bombproof! All with docu- 
mented source code: $75. Also Savant 
Tools™ for your Math programs: Real & 
Infinite Precision Math. Call for info. 


PARAGON COURSEWARE 
4954 Sun Valley Rd, Del Mar 
California 92014 USA. 
( Visa, Master Card OK) Tel (6 l 9) 481- 1477 


Savent, Super Tools: trademarks of Peragon Courseware. Turbo Pescel:tredemark of Boriend Intern‘nl. 
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+ Thinking 
about 
C? 


Stop Thinking- 
Start Programming Today! 


SPECIAL INTRODUCTORY OFFER! 
C’ Prime, Personal Computing and C, 


Plus Apprentice C. 
A $169 value only 


$99 





NEW FROM MANX AZTEC! 
C’ Prime se $79 


Never has C been easier to learn. 
Manx Aztec is now offering a com- 
plete C system called C’ Prime at an 
exceptionally low price. This powerful 
system includes a Compiler, Linker, 
Assembler, Editor, Libraries and Ob- 
ject Librarian. C PRIME supports a 
host of third-party software. 


C Apprentice $4955 $39.95 


Learn C quickly with this complete, 
easy-to-use C language interpreter. 
Apprentice C includes a complete one- 
step compiler that executes with lightn- 
ing speed, an editor, and a 

run-time system. 


NEW FROM ASHTON-TATE! 
Personal Computing and C 


A detailed, easy-to-understand guide to 
C programming prepared especially by 
Ashton-Tate for use with the new 
Aztec C’ Prime. Includes chapters on 
C programming basics, function 
libraries, data handling, and advanced 
features, plus a complete money man- 
agement demonstration program. 


To order or for information call: 


/CCWAR 


1 800-TEC- WARE 


(In NJ call 201-530-6307) 








ts a regstered TM of Bell Laboratones. dBase TM Aston Tate. Inc. MANX AZTEC. C PRIME 
Apprentice © TM Manx Software Systems. Inc 
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‘The C86 — 
C Compiler 
is Great... 





Computer 


Innovations 
Support is 
Even GREATER’ 





DALE HILLMAN. 


When Dale Hillman 
decided to create the most 
exciting football simulation 
game ever, he knew he 
needed good language 
support. The portability and 
maintainability of C made it 
a natural choice. Which 
C compiler to choose was 
another matter entirely. 

“Of the many C compilers 
available, choosing the best 
one for the job was not easy. 
Comparing benchmarks, most 
compilers were strong in 
one or two categories, yet 
decidedly weak in others. 


_ PRESIDENT, XOR CORPORATION 
CREATOR OF “NFL CHALLENGE” 
















Computer Innovations’ C86 
was the exception. | found 
the C86 Compiler con- 
sistently strong in all 
categories. 

“C86 had a reputation for 
being a solid, reliable, high- 
performance compiler. 8087 
math support, source level 
debugging — it had it all. 
BEST of all was Computer 
Innovations’ incredible 
technical support. Their 
highly knowledgeable 
Support team was always 
available. Their assistance 
helped cut development 








time substantially. And since 
NFL CHALLENGE took 12 12 
man-years to create — 
every little bit helped. It was 
a service you just can't 
place a dollar value on...” 


lf you're working on the 
next great program, call 
Computer Innovations. We'll 
show you why you’ll never 
have to look any further 
than C86. 


For Further Details 
Call Toll-Free: 


800-922-0169 





Behind Innovative Programs ~ 
Computer Inn ovations 





ye COMPUTER 


INNOVATIONS, INC. 


980 Shrewsbury Avenue, 
Tinton Falls, NJ 07724 USA (201) 542-5920 


EUROPEAN DISTRIBUTOR 
Boston Micro, inc., TELEX: 6712477 BMI USA 


©1986 Computer Innovations. inc. 
™ NFL Chailenge is a trademark of NFL Properties 
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HAUPPAUG 


Is Getting A Fast Reputation. 





TES a 
ing a fast reputation with — 
their 87 Math Pak, the 


combination of an 87 chip and 87 
_ Software Pak that’s been accelerat- 
ing PC math since 1982. | 
Next came their racy 287 
_ FAST/5, a math coprocessor mod- 
ule with its own 5MHz clock, von up PC/AT m: aa 
SL (Pictured levee ee : 


Now, Hauppauge Unveils the 287 FAST/8A.... 
Our newest math coprocessor for the PC/AT, ane ie 
FAST/8A moves out at 8MHz—doubling the Delcteel re 


each floating point math operation. The FAST/8A accel- 7 
erates AutoCad, 1-2-3, Symphony, Turbo Pascal, meclico 


work and more. The FAST/8A also runs in PC/AT 


compatibles including the Compaq Deskpro 286, Sai os 


PC/IT and TI Business-Pro computers. 
...And the 87 Software Pak Version 6.0 


Designed to steal the heart of programmers, a Stacy ee 


ware Pak supports IBM’s BASIC Compiler 1.0 and 2.0, 
and Microsoft’s QuickBASIC; executing math-intensive 
programs up to 20 times faster! The 87 Software Pak also 
performs FFT’s and Matrix operations. For example, a 


PC (or PC/XT) with an 87 Chip and 87 Software Pak 


can perform a 512-point complex FFT in just 1.1 seconds. 


What’s more, a PC/AT with a FAST/8A inverts a 25 si 


25 element matrix in under | pene 


Hauppauge | — Available at your local computer dealer 


HAUPPAUGE Math Coprocessors 
287 FAST/8A 8MHz math coproces- 
sor for PC/AT and compatibles ....$379 


287 FAST/5 5MHz math coprocessor 
for PC/AT and compatibles........ $249 


287 Chip PC/AT math coprocessor— 


runs at 4MHz in PC/AT............ .$219 
scapes mae: 87 Chip Math coprocessor for IBM 
PC, PC/XT and rt es ses ee are $129 


87. 2 Chip Math coprocessor for 8MHz PC ent coe $195 
HAUPPAUGE Math Coprocessor Paks 


: a 87 Math Pak V.6.0 87 chip and math coprocessor software : 
support for IBM BASIC Compiler 1.0, 2.0 and Microsoft's 


~ QuickBASIC. Plus, Matrix and FFT support, one year of free 
tees Se ees source code ae “8087 Applications ar. 


_ Programming” ....... A AR I ee ee a rs te 
87 Software Pak V.6.0 Math coprocessor software support 

_ as in the 87 Math Pak, but without 87 chip ee Ly ree: $180 

ee die tahy SET math coprocessor ...........+. Se 


ecw Coe Math coprocessor support for 1-2-3 version 1A ..$ 95 


(ste eWe rama Clty e-licom itso Ree) o) ceo. 0) anne ere eenenee he So 
tia + Complete Hayes Fourier Transform Package ....... ne 


MA CasWee Tava eC ejector rittae Mee)» celeacc0) anne $ 79 


The 287 FAST/8 Doubles Your PC/AT’s Math Speed! 

Help your PC/AT get a fast reputation with Hauppauge’s 
~~» new 287 FAST/8A. Call today, or contact your local 

computer dealer to learn more about Hauppauge’s racy — 


product line. And ask for “87 Q & A) our free booklet 


on math coprocessors. 


Hauppauge Computer Works, Inc. 
358 Veterans Memorial Highway, Suite MSI, 
Commack, New York, USA 11725 © 516-360-3827 





